excel - 为什么我的子程序没有按预期更新当前日期和时间？

Question

我的Workbook_SheetChange代码似乎没有运行。

我尝试过几种不同的方式来改变它，包括设置对象而不是设置对象。似乎没有触发任何更改事件。

我当前的代码如下，但我已经完全刮掉了甚至不引用工作表名称的其他版本。它们似乎都不起作用。我有另一个带有工作表更改代码的 wb。

我期待我的摘要表日期和时间单元格 - Worksheets("GL 1500").("B2") - 随时更新摘要选项卡上“C31:P46”范围内的任何内容，或任何其他选项卡上的备用范围发生了变化，但它没有随着我对任何工作表所做的任何更改而更新。

我犯了什么愚蠢的错误？

代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Sh.Name = "GL 1500" Then
        If Not Intersect(Target, Sh.Range("c31:p46")) Is Nothing Then
            Application.EnableEvents = False
            With Worksheets("GL 1500")
                .Range("b2").Value = Now
            End With
            Application.EnableEvents = True
        End If

    Else
        If Not Intersect(Target, Sh.Range("e14:k39")) Is Nothing Then
            Application.EnableEvents = False
            With Worksheets("GL 1500")
                .Range("b2").Value = Now
            End With
            Application.EnableEvents = True
        End If
    End If

End Sub

标签： excelvba