Поиск Артикула ошибка run time error 9 subscript out of range

[Виктор Кавешников]

Добрый день. Помогите пожалуйста. Не могу найти ошибку. Написал кодс помощью которого хочу чтобы макрос искал артикул в таблице и подгружал данные по артикулу в Txb описание. Выдает ошибку
run time error 9 subscript out of range. Уважаемы профессионалы,помогите пожалуйста найти причину. P.s. Я пока что мало в этом разбираюсь

[vikttur]

4 кнопки, несколько макросов, форма... Предлагаете игру "найди, когда возникает ошибка"?

[Виктор Кавешников]

Код: (vb)

Sub SearhArticle() ' поиск товара по артикулу на листе склад
  Dim Cell As Range
 
    Set ShStore = ThisWorkbook.Worksheets("Склад")
    Set StoreListObj = ShList.ListObjects("Склад_tb") ' тут показывает ошибку
    Set Cell = StoreListObj.ListColumns.Item(1).Range.Find(Sales.txb_article.Value, LookAt:=xlWhole)
    If Not Cell Is Nothing Then ' Если найден артикул
        Sales.txb_desc.Value = Cell.Cells(1, 2)
    End If
 End Sub

Вот тут ругается...

Код: (vb)

Set ShStore = ThisWorkbook.Worksheets("Склад")
    Set StoreListObj = ShList.ListObjects("Склад_tb")

[Дмитрий Щербаков(The_Prist)]

Где у Вас в книге ShList? Нет такого кодового имени листа. Так почему ошибке не быть?
А таблица Cклад_tb у Вас как раз на листе "Склад". За него у Вас отвечает предыдущая строка с переменной: ShStore. Найдите два отличия.
ShStore <> ShList

[Виктор Кавешников]

Спасибо большое) Чайник Закипел и тут меня осенило)