error - Runtime error 9 «индекс вне диапазона»

Question

у меня ошибка с кодом:

Sub Macro1()
'
' Macro1 Macro
'

'

Dim a As String

 a = "=*" & CStr(Range("a2").Value) & "*"

   With Sheet1.ListObjects("Table2")
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
    End With


    If IsEmpty(Range("a2")) = False Then

        ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=a, Operator:=xlAnd

    Else: End If

Я не понял, почему я получаю ошибку с динамическими критериями. Кто-нибудь может помочь или предложить что-то? (ошибка в строке начинается с

ActiveSheet.ListObjects

спасибо

Answer 1

«Таблица1» не существует на листе!Спасибо TimStack!