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