Jo,

Two problems.

Don't use FormulaR1C1. Use Formula.

When placing double quotes within a quote delimited string, double the internal quotes.

ActiveCell.Formula =
"=IF(OR(FRM100!M16=""Fail"",FRM100!M18=""Fail"",FR M100!M20=""Fail"",FRM100!M22=""Fail"",FRM100!M25=" "Fail"",FRM100!M30=""Fail"",FRM1
00!M44=""Fail"",FRM100!M55=""Fail"",FRM100!M60=""F ail"",FRM100!M62=""Fail""),""FAIL"",""PASS"")"


--

John Green - Excel MVP
Sydney
Australia


"Jo" wrote in message ...
Hi
I cannot get this to work.......
Range("F19").Select
ActiveCell.FormulaR1C1 = "=IF(OR(FRM100!
M16="Fail",FRM100!M18="Fail",FRM100!M20="Fail",FRM 100!
M22="Fail",FRM100!M25="Fail",FRM100!M30="Fail",FRM 100!
M44="Fail",FRM100!M55="Fail",FRM100!M60="Fail",FRM 100!
M62="Fail"),"FAIL","PASS")"
thanks
Jo