Sub FindnHiLite(lookfor)
With ActiveSheet.Range("a1:c550")
Set c = .Find(lookfor, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
|