On Thu, 14 Sep 2006 11:21:44 +0100, "Bob Phillips"
wrote:

Different approach

Dim iRow As Long
On Error Resume Next
iRow = ActiveSheet.Evaluate("Match(""HelloFred"", B1:B100&C1:C100, 0)")
On Error GoTo 0
If iRow 0 Then
MsgBox "Found in Row " & iRow
End If

Thanks very much Bob.... peerfect!

Could I add something to specify the worksheet concerned?

Cheers - Kirk