Вячеслав Грачунов

Одноразово запустил то же самое с True через Personal.xlsb при старте через Workbook_Open - и все стало ок, затем событие удалил и все работает. Хз что это было.

Private WithEvents App As Application

Private Sub Workbook_Open() ' открытие книги
     Set App = Application
End Sub

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Поиск" Then
       'Действия
    End If
End Sub