'-----------------------------------------------------------------
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")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Chip Smith" wrote in message
...
i have a work book that is being shared amongst some co-workers and i. i
was
curious to know if there is a way to find out who modified it last

--
--Chip Smith--