Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Exit Sub
With Range("A:A").SpecialCells(xlCellTypeConstants)
.Interior.ColorIndex = xlNone
lg = .Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row
End With
Cells(lg, 1).Interior.ColorIndex = 3
Cells(lg, 1).Select
End Sub