Date for latest Update

  • Thread starter Thread starter Sokoban
  • Start date Start date
S

Sokoban

Hi
I want a cell show today() Date when somebody has change something in
the document...Also the date will only change when I saving the
document....

How I do that ??

//Sokoban
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ThisWorkbook.Names.Add Name:="LastSaved", _
RefersToR1C1:="=""" & _
Format(Now, "mmm-dd-yyyy hh:mm") & """"
End Sub

The above pasted into This Workbook of the VBE will create the function
"LastSaved". In the cell of choice enter =LastSaved <<< henceforth
anytime you Do a File Save, or click on the Diskette Icon the cell will
update..

HTH
 
Back
Top