Worksheet : Show last time updated

[JCG82]

I have this code to show the last time my work book was updated :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Range("I56").Value = DateTime.Now
End Sub

I would like to use this same idea to apply the function to each work sheet in the work book. Can someone help me with the code and I assume I will put "that" code into each work sheet in the VBA editor ?

 

[Smitty]

You could try the Workbook_SheetChange event.

 

[JCG82]

I'll give that a try.. thanks

 

[JCG82]

Private Sub Workbook_SheetChange(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Range("I56").Value = DateTime.Now
End Sub

I tried to place this in the work sheet code section, however it doesn't populate 156, if I alter the sheet or save the sheet.

Am I off track on this?

 

[Smitty]

Try this:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_SheetChange(<SPAN style="color:#00007F">ByVal</SPAN> Sh <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Object</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br>    ActiveSheet.Range("I56").Value = <SPAN style="color:#00007F">Date</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Note that the arguments are different.

HTH,

 

[JCG82]

Perfect thank you.. one day I will learn..

Happy Thanksgiving