Having an automated "Last Updated" cell in an excel sheet

[jayakrishnanaa]

I am using Excel 2007. I have a workbook with several sheets showing time sheets.
Is it possible to have a cell in the sheet, the value of which changes to the last updated date as soon as somebody edits the sheet.

Thanks
JK

 

[VoG]

Perhaps like this in the ThisWorkbook module. Change Z1 to suit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Range("Z1").Value = Now
Application.EnableEvents = True
End Sub

 

[jayakrishnanaa]

Thanks VoG

Perhaps like this in the ThisWorkbook module. Change Z1 to suit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Range("Z1").Value = Now
Application.EnableEvents = True
End Sub