如果单元格值等于：关闭时，Excel中的VBA代码消息框：“ FAIL”

Question

我当前在工作簿中使用以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, [B3]) Is Nothing Then
    [b64] = Date
  End If
End Sub

如果结果单元格更改为“失败”，我需要在退出时弹出一个消息框，并警告我注意它。

如果我想再次使用Worksheet_Change，则会收到“检测到不明确的名称worksheet_change”错误；如果要在另一个名称中插入，则会出现“未定义子或函数”错误。 代码是：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range
Set A = Range("I64")
If Intersect(Target, A) Is "PASS" Then Exit Sub
If Target.Value = "FAIL" Then
    MsgBox "Analysis Outcome is Failed " & Target.Address
End If

结束子

我该怎么办？ 如何在退出时使用它？也会很棒。

谢谢