try this:
Code was posted here - http://dailydoseofexcel.com/archives...lete/#comments
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' prevent dropdown list appearing and cycling thru list
If KeyCode = vbKeyDown Then
KeyCode = 0
ElseIf KeyCode = vbKeyUp Then
KeyCode = 0
End If
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.ShowDropButtonWhen = fmShowDropButtonWhenNever
.AddItem "John Here"
.AddItem "Jonn There"
.AddItem "Donna Here"
.AddItem "Logan There"
.AddItem "Ethan Everywhere"
End With
End Sub