From an earlier posting

Hi
use the following UDF:

Function DocProps(prop As String)
application.volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function

and enter in a cell
=DOCPROPS("last save time")
(format cell as date)

--
Regards
Frank Kabel
Frankfurt, Germany

--
Gary''s Student


"John_Ostar" wrote:

It is easy to show the date a document was last modified in MS-Word by
inserting the field: savedate into the footer. A very common requirement. But
there does not appear to be any way, or at least no easy way to do this in
Excel. I CAN'T BELIEVE IT! They still haven't added this. Excel forces you to
put in the current date. YUK! Why would I want that in my print out? I want
to know when it was last modified, not when I printed it. ARG!!!