I answered this in the other thread when you asked it yesterday.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"jocker" wrote in message
. nl...
I have spent hours trying to correct this Excel code and am considering
resigning.
Can anyone help ?

ActiveCell.Formula =

"=IF((C2)="""",""1"",IF(AND((A2)=""enddate"",(E2)< ""01/01/01"",(E2)<NOW()+1
4),""2"",if(and((A2)=""startem"",date(0,month(e2), day(e2))date(0,month(now(
)),day(now())),(e2)=""3""),""XXX""))"