'-----------------------------------------------------------------
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 use

MsgBox DocProps("last author")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"linglc" wrote in message
...
Does anyone know how I can return the user name who last modified a file
via
VB codes in a spreadsheet?