D

User Defined Function, not built-in.

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

In a cell enter...........

=DOCPROPS("author")
or
=DOCPROPS("last save time")

Gord Dibben Excel MVP

On Thu, 6 Jan 2005 13:25:07 -0800, "D" wrote:

Is there a way to put in the date when a user saves a document within the
spreadsheet? So that the next user can see when the spreadsheet was last
saved.
Thanks,