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

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

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

in the auto_close procedure make a code that save the value of A10 and paste
it on A9 (range("a9").value=range("a10").value) then, in a auto_open
procedure write:
if Range("A9")<"" then
Range("a9").select
selection.cut
'and then paste it in A10
else
Range("a10").formula="=today()"
end if
HTH
"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