Nolin

Copy/paste this User Defined Function to a module in your workbook.

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

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


Gord Dibben Excel MVP

On Thu, 7 Apr 2005 12:13:04 -0700, "Nolin"
wrote:

similar to the =NOW() function automatically inserting date and time in a
cell, is there a way to automatically insert the current document author's
name into a cell?