Sub test()
Dim i As Long
With ThisWorkbook.Worksheets(2)
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Worksheets(1).Columns("A:A").Select
Selection.Find(What:=Worksheets(2).Cells(i, 1).Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If cell Is Nothing Then
Worksheets(2).Cells(i, 1).Interior.Color = vbYellow
End If
Next i
End With
End Sub