Last Modification Date
'-----------------------------------------------------------------
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 such as
=DocProps ("last author")
or
=DocProps ("last save time")
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"Hal" wrote in message
...
I would like to create a formula that puts the date the file was last
saved/updated.
Any help is appreciated
Hal
|