How do I enter the creation date in Excel, rather than current da.

G

Gord Dibben

Function CreaDate() As Date
CreaDate = ActiveWorkbook.BuiltinDocumentProperties("Creation date")
End Function

Usage is: =CreaDate()

OR more options....

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

Usage is:

=DocProps("last author")

=DocProps("last save time")

=DocProps("creation date")


Gord Dibben Excel MVP
 
Top