Retrieving the last update of file

[Luthius]

I want an UDF that gives me the date of file's last update.
I tried use it:

Public Function LastUpdate() As Date
Application.Volatile
    strPath = Application.ThisWorkbook.FullName
    LastUpdate = Format(FileDateTime(strPath), "dd/mm/yyyy h:mm:ss")
End Function

But, everytime the Excel is opened, the date that is set is the current date, even the file has not been saved.

Luthius

 

[wigi]

Hi

You can use:

Public Function LastUpdate() As Double
    LastUpdate = ThisWorkbook.BuiltinDocumentProperties(12)
End Function

and format the cell with that formula the way you want.

 

[Luthius]

Thank you. This is exactly what I need.