View Single Post
  #2   Report Post  
Frank Kabel
 
Posts: n/a
Default

Hi
use the following 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

and enter in a cell
=DOCPROPS("last save time")
(format cell as date)

--
Regards
Frank Kabel
Frankfurt, Germany
"mgriffie" schrieb im Newsbeitrag
...
I have an Excel worksheet that is updated on a regular basis. I'd like to
include a cell that shows the last date saved so that its easy to tell how
current the worksheet is. Any advice? Thanks!