Date last saved/updated

[Guest]

I want to get the date the file I'm working on was last saved and place that
value into a cell.

I don't see a built in function to do this, any help is appreciated.

Hal

 

[Ron de Bruin]

Hi Hal

Sub test()
Sheets("Sheet1").Range("A1").Value = _
Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub

 

[William]

Hi Hal

Range("A1").NumberFormat = "dd/mm/yy hh:mm"
Range("A1") = FileDateTime(ThisWorkbook.FullName)
--

Regards

William

XL2003

(e-mail address removed)