How to exit a combobox on KeyPress

[Zack Barresse]

Tommy,

Maybe you can figure this one out. I can use this code with a ListBox and it worked beautiful, but on a ComboBox, it doesn't work... (??)

Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
    Sheets("Sheet1").Range("B6").Activate
    End If
End Sub

KeyAscii 13 is the Enter key. You won't be able to (I don't think) use TAB unless you can find a way to integrate that into a routine with SendKeys maybe.