Put this in a Standard module:

Function Crdate() As Date
Crdate = ThisWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

and use =crdate() in the worksheet.