运行时错误91对象错误对象变量未设置

Question

运行时错误91 ....编码，以在工作表1中的单元格d3中的数据更改时刷新工作表2上的数据透视表，然后按Enter键。

有时在关闭并重新打开excel文件后会工作一段时间

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim KeyCells As Range
    Set KeyCells = Sheet1.Range("D3")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
          Is Nothing Then
          Sheets("Sheet2").Activate

          Selection.ListObject.QueryTable.REFRESH BackgroundQuery:=False
          Sheets("Sheet1").Select
          Range("F3").Select
    End If

End Sub

Selection.ListObject.QueryTable.REFRESH BackgroundQuery:=False

在执行调试器时出现此行错误。...错误91 ...关于对象变量