Sub Demo1()
Dim Rg As Range, R&
Application.ScreenUpdating = False
With Me.UsedRange.Columns(2)
.Font.ColorIndex = xlAutomatic
Set Rg = .Find("iPhone")
If Not Rg Is Nothing Then
R = Rg.Row
Do
If Rg(1, 2).Value2 = "Used" Then Rg.Font.Color = vbRed
Set Rg = .FindNext(Rg)
Loop Until Rg.Row = R
Set Rg = Nothing
End If
End With
Application.ScreenUpdating = True
End Sub