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

Hi Hal

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Hal" wrote in message ...
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

Hi Hal

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

Regards

William

XL2003




"Hal" wrote in message
...
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