Excellent Gord thank you.
Sandy

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Sandy

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ActiveSheet.Range("A10").Value = Format(Date, "dddd, mmmm dd, yyyy")
End Sub


Gord Dibben Excel MVP

On Thu, 24 Nov 2005 22:50:54 -0000, "Sandy"

wrote:

In cell A10 I have the formula =Today() which is fine, but how can I
code
it so that when the file is saved the value in A10 at the next opening
doesn't update. (I know to use the "BeforeClose" sub procedure). In other
words it retains the date that the file was saved.
Sandy