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 for example in a cell (to get the last modification date)
=DOCPROPS("last save time")
(format cell as date)
--
Regards
Frank Kabel
Frankfurt, Germany
Mark wrote:
I would like to find a way to insert the data that is stored on the
"Properties" page of an excel document into the cell. In work and
Visio I can do it easily but I can't figure out how to do it in
Excel. I know, it's probably simple, but I just can't think that
simple right now...
thanks
mark
|