Last Modified Date/Time

[mattbarb]

Hi,

The below works however it does not update automatically, I have to click in to the cell and then refresh the cell. Can any one advise how to automatically refresh this once saved/files opened?

Function LastSavedTimeStamp() As Date  LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Thanks,
Matt

 

[Phuoc]

Function LastSavedTimeStamp() As Date
Application.Volatile
LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Code in ThisWorkbook:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.Calculate
End Sub

 

[mattbarb]

Thanks!!