エラー '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ループなしで1回。

Answer 1

あなたIntersect B7以外の任意のセルが変更された場合、Nothingを返すその最初のテストのためにそうします：

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