How can I modify this code so that every time a Worksheet_Change event
occurs it will but the current date and time in cell (L1) over writing
the last update?

In addition win the files is open it show show the time of the last
update.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
If IsEmpty(Target) Then
Target.Offset(0, 1).Value = Empty
Else
Target.Offset(0, 1).Value = Now()
End If

End If

End Sub

Little Penny, whenever a change occurs anywhere in the sheet, is that what
you want?

Private Sub Worksheet_Change(ByVal Target As Range)
Range("L1") = Now
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Little Penny" wrote in message
...
How can I modify this code so that every time a Worksheet_Change event
occurs it will but the current date and time in cell (L1) over writing
the last update?

In addition win the files is open it show show the time of the last
update.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
If IsEmpty(Target) Then
Target.Offset(0, 1).Value = Empty
Else
Target.Offset(0, 1).Value = Now()
End If

End If

End Sub