Combo box keep keeps pulling down when selecting other pull down box

[STEEL010]

Hi There,

My interactive combo box keeps on pulling down when I select an other pull-down menu.
what value do I have to put into my VBA writings??? that it will not pulling down automatically

see below for combo box value


Private Sub ComboBox1_Change()
ComboBox1.DropDown
If Range("B5").Value <> "" Then
Range("B6").Value = Evaluate("=VLookup(B5,SEARCHLIST, 7, 0)")
Else
On Error Resume Next
Range("B6").ClearContents
End If
End Sub

Greeting

Steel010