try this - seemed to work for me - note you need double "" everwhere

Sub macro1()
With Range("H2")
Range(.Cells(0, 1), .End(xlDown)).Offset(0, 3). _
FormulaR1C1 =
"=IF(AND(RC[-1]=0,RC[-5]0),""NO"",IF(AND(RC[-1]=1,RC[-5]0),""YES"",""""))"
End With
End Sub


--
duane


------------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...o&userid=11624
View this thread: http://www.excelforum.com/showthread...hreadid=482087