Try this instead, a little more concise, I think:
Option Explicit
Sub SearchForMatch()
'JBeaucaire (8/26/2009)
Dim LR As Long, i As Long
Dim ws As Worksheet
For Each ws In Worksheets(Array("Sheet1", "Sheet2"))
ws.Activate
LR = Range("A1").End(xlDown).Row
For i = 2 To LR
If ws.Name = "Sheet1" Then
If Evaluate("ISNUMBER(MATCH(" & Cells(i, "A") & ",Sheet2!A:A,0))") Then
Cells(i, "A").Interior.ColorIndex = 6
Else
Cells(i, "A").Interior.ColorIndex = xlNone
End If
Else
If Evaluate("ISNUMBER(MATCH(" & Cells(i, "A") & ",Sheet1!A:A,0))") Then
Cells(i, "A").Interior.ColorIndex = 6
Else
Cells(i, "A").Interior.ColorIndex = xlNone
End If
End If
Next i
Next ws
End Sub
Bookmarks