Combo Box Dropdown

[AlexanderBB]

In the combo Change event I goto my code to do stuff... and the combo box dropdown
does not retract.
Is there an instruction to make it do that ?

 

[My Aswer Is This]

If by Retract you mean Go back to Top which is empty.

You need to use a Click Event not a change Event:

Use something like this:

Private Sub ComboBox2_Click()
'Modified  3/24/2019  12:50:44 AM  EDT
Sheets(1).Cells(1, 1).Value = ComboBox2.Value
ComboBox2.ListIndex = -1
End Sub

 

[AlexanderBB]

Thanks, I tried that and it didn't make much difference, the dropdown list stayed visible.
However setfocus to another control removes the dropdown and is good enough, even if a kludge.
The Click event was a good idea as I was using a Boolean in the change event and can remove it now.

 

[My Aswer Is This]

Well I test all my scripts.

Show me the code you used.

 

[AlexanderBB]

No worries. I've deleted my Change event now.