Vba 如何停止错误'；91'；：对象变量或未设置块变量

嗨，我是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一次，无循环

如果B7以外的任何单元格发生更改，则您的

Intersect

将返回

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

---

如果B7以外的任何单元格发生更改，则您的

Intersect

将返回

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

---

绝对传奇。谢谢你的帮助！绝对传奇。谢谢你的帮助！