Solved: if it contains an O

[khalid79m]

I currently have this formula

            'Call_Activity_Check
                With Range("Call_Activity_Check")
                .FormulaR1C1 = _
                     "=IF(Call_Activity_Calc=""O"",""Fail"",IF(Call_Activity_Calc=""OO"",""Fail"",IF(Call_Activity_Calc=""OOO"",""Fail"",IF(Call_Activity_Calc=""OOOO"",""Fail"",IF(Call_Activity_Calc=""OOOOO"",""Fail"",""Pass"")))))"
                .Locked = True
                '.Value = .Value
                .EntireColumn.Hidden = True
            End With

I want to simplfy it that if Call_Acticity_Calc contains and O then fail, pass. can anyone assist ?

[khalid79m]

      .FormulaR1C1 = _
                    "=IF(ISNUMBER(SEARCH(""*O*"",Call_Activity_Call)),""Fail"",""Pass"")"

Ive done it thanks, see above is there a better way ?