Right click the excel icon in the upper left next to "file" and insert this.
Chg to suitSAVE

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("sheet1").Range("a1") = Date
End Sub


--
Don Guillett
SalesAid Software

"Ben" wrote in message
oups.com...
Is there a formula to capture Last Save Date in a cell?

Thanks!