Try a UDF like

Function DocProps(prop As String)

On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties(prop)
Exit Function

err_value:
DocProps = CVErr(xlErrValue)
End Function

Called with

=DocProps("Last save time")

--
HTH

Bob Phillips

"KTK" wrote in message
...
Can I insert a date function that will calculate the last edited or
modified
date?