title: Why is my subroutine not updating the current date and time as I expect?
body: <p>My <em>Workbook_SheetChange</em> code seems to not be running.</p>
  
  <p>I have tried changing it several different ways, including Setting objects and not Setting objects. No change event seems to trigger. </p>
  
  <p>My current code is below, but I have completely scratched other versions that don't even reference sheet names. None of them seem to work. I have another wb with a Worksheet Change code that works.</p>
  
  <p>I am expecting my summary sheet date and time cell - Worksheets("GL 1500").("B2") - to update with the current date and time any time anything in the range "C31:P46" on the summary tab, or the alternate range on any other tab, changes, but it has not updated with any changes I make to any worksheet.</p>
  
  <p>What stupid mistake am I making?</p>
  
  <p><strong>Code:</strong></p>
  
  <pre><code>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
  
  </code></pre>