Sorry something my fingers are faster than the brain. I meant is there a way
to do it with out a script, and just use a formula.
--
Thanks
TimM


"Don Guillett" wrote:

I don't understand the question.

--
Don Guillett
SalesAid Software

"TimM" wrote in message
...
Is there a way to do it with a script.
--
Thanks
TimM


"Don Guillett" wrote:

How about a worksheet_open event in the ThisWorkbook module?

Sub ifdate()
MyArray = Array(1, 2, 3 , 4)
For Each c In MyArray
If Range("h1") = c Then Range("H3") = Date
Next
End Sub
--
Don Guillett
SalesAid Software

"TimM" wrote in message
...
I'm using the formula below to give a date in column 'A' when a 1, 2,
3,
or 4
is put in column 'H'.
=IF(OR(H1={1,2,3,4}),TODAY(),"")

Is it possible to make it so the date does not change the next day when
the
the sheet is update/opened, with this or with a different formula.
--
Thanks
TimM