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!!!
|