Here is an UDF

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

Now you can use the following formula in one of your cells:
=DocProps("Last save time")

Obviously, the file has to have been saved.

--

HTH

Bob Phillips

"LDL" wrote in message
...
I am sharing a worksheet with another person and we both are updating it
often throughout the day. I'd like to have a cell display the last time
and
date it was modified. Can this be done? Thanks, Diane