Sub Macro35()
'
Dim I As Integer
Dim J As String
J = Cells(4, 2).Value
I = Range("B10000").End(xlUp).Row
With Range(Cells(3, 2), Cells(I, 3))
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B3=" J
.FormatConditions(1).Interior.ColorIndex = 23
End With
End Sub