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