How about this:

Code:
Sub LastSaved()
Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub
Change the range appropriately