Sub GetDateCreated()
	'This requires a Reference to Microsoft Runtime Scripting Library
	Dim FSO As Scripting.FileSystemObject
	Dim FileItem As Scripting.File
	Dim DateCreated As String

Set FSO = New Scripting.FileSystemObject Set FileItem = FSO.GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name) DateCreated = FileItem.DateCreated End Sub