G
Guest
Hello from Steved
The below tracks my changes in Excel. It works perfect in Office 2003, but
Now I've upgraded to Office 2007 it no longer works. Have you Got an answer
for me please.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then
Application.EnableEvents = False
If Not IsEmpty(.Value) Then
Me.Range("B3") = Now
End If
Application.EnableEvents = True
End If
End With
End Sub
Thankyou.
The below tracks my changes in Excel. It works perfect in Office 2003, but
Now I've upgraded to Office 2007 it no longer works. Have you Got an answer
for me please.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then
Application.EnableEvents = False
If Not IsEmpty(.Value) Then
Me.Range("B3") = Now
End If
Application.EnableEvents = True
End If
End With
End Sub
Thankyou.