Modified date

S

Shane Nation

Please can anyone tell me how I can place in a cell on a sheet the date the
workbook was last modified?

Thanks

Shane.
 
B

Bob Phillips

Create a 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 such as
=DocProps ("last author")
or
=DocProps ("last save time")



--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
 
Top