Поиск по скрытому документу Excel

Private Sub UserForm_Initialize() 'просто привязываю текущий документ и скрытно открываю док-базу
Set Wbook = ActiveWorkbook
Dim appSh As Application
Set appSh = New Application
appSh.Visible = False 'указано что приложение будет невидимо и не будет мешаться среди прочих открытых документов
Set BarcodeBook = appSh.Workbooks.Open("D:/Cloud/Штрих-коды.xlsx", , ReadOnly:=True)
Set BarcodeSheet = BarcodeBook.Worksheets(1)
...
End Sub
 
Private Sub app_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'actions
If Target.Cells.Count > 1 Then Exit Sub   ' если изменений больше одной ячейке-выход, т.к. данные меняются только в одной ячейки сканером
    If Target.Column = 19 Then   ' если изменение в столбце 19
    Application.EnableEvents = False   ' запретить обработку событий чтобы производимые далее изменения на листе не приводили к повторному циклическому вызову этой же процедуры
    Dim c As Range
    
    Set c = BarcodeSheet.Cells.Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole) 'более развернутую версию тоже пробовал. возвращает пустой результат
    TextBox1.Text = Cells(c.Row, 2).Text 'в тоже время здесь спокойно получаю любую ячейку, если подставить номер строки
    ... 'упрощено
    Application.EnableEvents = True   ' разрешить обработку событий
    End If
End Sub