How about this:
Change the range appropriatelyCode:Sub LastSaved() Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time") End Sub
How about this:
Change the range appropriatelyCode:Sub LastSaved() Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time") End Sub
Alan
Did you debug your code first? http://www.cpearson.com/excel/DebuggingVBA.aspx
Like my answer? Click * below
Database Normalization
Database Principles
Pivot Table Tips
Excel Video Tutorials
SumProduct Video Tutorial
DataPig Access Tutorials
MS Query Tutorial
SQL Tutorial
Bookmarks