how does it fail?

Tim

--
Tim Williams
Palo Alto, CA


"Ron Dean" wrote in message
. nl...
Can someone pick holes in this code as it fails.

ActiveCell.Formula = "=if datepart(""yyyy"",(e2)) =

datepart(""yyyy"",now()+1),date(1,month(e2),day(e2 )),date(0,month(e2),day(e2
))"