Private Sub Workbook_BeforeClose(Cancel As Boolean) Const txt = "наименование" Call ПоискСтрокПоУсловию(txt, True)End SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Const txt = "наименование" Call ПоискСтрокПоУсловию(txt, True)End SubPrivate Sub Workbook_Open() Const txt = "наименование" Call ПоискСтрокПоУсловию(txt, True)End Sub
Dim txt$: txt = VBA.InputBox("Чё же хайднуть?", , "наименование") Call ПоискСтрокПоУсловию(txt, True)
Call ПоискСтрокПоУсловию("наименование", True)
Private Sub Worksheet_Calculate() Call ПоискСтрокПоУсловию(0, True)End Sub