Entering Todays date in an excel spreadseet

[David]

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.

 

[JE McGimpsey]

Check the archives

http://groups.google.com/advanced_group_search?as_ugroup=*excel*

for dozens of examples, using "last saved date":

http://groups-beta.google.com/groups?&q="last+saved+date"+group:*ex
cel*

 

[Doug]

Try this

Sub SetSaveEvent()
ActiveWorkbook.OnSave = "SaveProcedure"
End Sub

Sub SaveProcedure(s As Boolean)
Sheets("Sheet1").Range("A1")=Date
End Sub

Doug
David wrote in message <[email protected]>...
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.