Hi

Place this code in the ThisWorkbook module of the file:

Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Cells(2, 3).Value = Now
End Sub

Post back if you are unfamiliar with this operation.

HTH. Best wishes Harald

"David" skrev i melding ...
I have a need to automatically save the current date to a cell in an excel spreadsheet every time the sheet is saved.

Today() always returns the current date, so once I open the sheet on a new day I can no longer see the date the information was last updated, i.e. saved.

Any help would be appreciated.