View Single Post
  #2   Report Post  
Old December 9th 05, 07:13 PM posted to microsoft.public.excel.worksheet.functions
Bob Phillips
 
Posts: n/a
Default "last modified date"


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument*Properties _
(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 Phillips

(remove nothere from email address if mailing direct)

"cnestg8r" wrote in message
...
How do I read the system "last modified date" and place it in a document
automatically?