Try a UDF like


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 can be used like so


=DocProps("Last save time")



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pete" wrote in message
...
I want a cell to show the last saved file date and not change every time I
open the file except when it is saved.