Sub selectdata()
Dim d As Variant
d = Range("A:A").Value
Dim ilen As Long
ilen = UBound(d, 1) - 1
For i = 1 To ilen
If d(i, 1) = "" Then Exit For
Set obj = Range("B:B").Find(d(i, 1))
If Not obj Is Nothing Then
Range("A" & i).Interior.ColorIndex = 6
End If ...