如何停止錯誤「91」：對象變量或塊變量未設置

Question

您好我是VBA的新手，所以如果這是一個非常簡單的修補程序，請道歉。

以下代碼一直返回Excel錯誤'91'：對象變量或未設置塊變量。

Private Sub Worksheet_Change(ByVal Target As Range) 

If Intersect(Target, Range("$B$7")) = Worksheets("Team Amendment Tables").Range("$C$7") Then 
Application.Run "TargetUpdate1" 

End If 

End Sub 

有關如何解決這個問題的想法？ 上下文：在工作表7中下拉列表以觸發宏：TargetUpdate1一次沒有循環。

Answer 1

你Intersect將返回Nothing如果不是B7之外的任何細胞發生變化，因此測試對於第一：

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Not Intersect(Target, Range("$B$7")) Is Nothing Then 
     If Range("$B$7").Value = Worksheets("Sheet1").Range("$C$7").Value Then 
      Application.Run "TargetUpdate1" 
     End If 
    End If 

End Sub