错误-运行时错误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

工作表中不存在“ Table1”！感谢TimStack！