You have no continuation characters. Try this:

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")"

TH

On 4/7/04 15:26, in article , "Jo"
wrote:

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
Try this in a macro:

Sub CopyUserSelectedCells()
Dim mySelection as Range
Set mySelection = Selection 'Assigns the current user selection,
'even if it's multiple non-contiguous cells
For Each C In mySelection
'copy each cell here to wherever you want
Worksheets("Name of new sheet").Range("Cell to copy to") = C
Next
End Sub


TH