View Single Post
  #1   Report Post  
chris w
 
Posts: n/a
Default ? on "date last saved" in cell

I have seen the following from Frank posted a few times and I have yet to
make this work, what am I doing wrong? I have pasted the function in and
only recieve
#NAME?
in the cell.

Thank you,
chris

Hi
use the following UDF (only on workbook level):

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

"Glenn" schrieb im Newsbeitrag
...
I have a workbook with a cell that I want to update with
the "Date Last Saved". I tried using the function NOW()
but that updates the cell when the workbook is opened or
saved. Can anyone assist? Thanks.