Sub lastsavetime()
With ActiveSheet
.Range("A1").Value = "Last Saved "
.Range("B1").Value = Format(ThisWorkbook.BuiltinDocumentProperties _
("Last Save Time"), _
Format("yyyy-mmm-dd hh:mm:ss"))
End With
End Sub
Gord Dibben MS Excel MVP
On Wed, 28 Oct 2009 11:37:01 -0700, Rich Hartmann <Rich
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.