'-----------------------------------------------------------------
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 save time")


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Eddie Armstrong" <Eddie wrote in
message ...
I need to have a field on a worksheet to show the file creation date. It
can't be in the header or footer as I need to make calculations based on
it.
Any clues?

Regards,
Eddie