Last Changed Date for a given sheet

[Pivot]

Hi,

I've created a workbook for the CEO with multiple sheets. Each sheet is for a seperate department.

The CEO has a summary sheet that pulls through data from the department sheets. So far so good.

The CEO now wants to know when each sheet was last updated, so that he can see if all the managers have updated recently.

Ideally I'd like to be able to store the last updated date/time somewhere on the individual sheets so that I can pull it back to the summary page.

Any help would be greatly appreciated. I've scanned the forum for a solution but haven't found anything.

Thanks

 

[VoG]

You could use something like this which goes in the ThisWorkbook module

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

 

[Pivot]

You could use something like this which goes in the ThisWorkbook module

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

Spot on, thanks so much Peter
Regards
Mark