It works in 2007 too.

Regards,
Shailesh Shah
http://in.geocities.com/shahshaileshs/
(Excel Add-ins Page)
If You Can't Excel with Talent, Triumph with Effort.


"Steved" wrote in message
...
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.