Calling a macro from a ComboBox

[Palaeontology]

I have a combobox (called Combobox 6) which has a Control Source of 'DropBoxLists!Y2'.
After selecting a choice from the combobox list, I wish to activate a macro called 'ManualClassListSorter'.

I currently have the following code ...

Private Sub ComboBox6_Change()
Call ManualClassListSorter
End Sub

Unfortunately, while it is doing the job, the combobox seems to need me to click my choice twice (or more) before it will display my list choice in the combobox window, and it seems to be performing an endless number of activations of the macro, so the program therefore runs extremely slowly and poorly.

Alternatively, I've tried the following code in an attempt to get the macro to run whenever there is a change in cell Y2 in the sheet 'DropBoxLists', but as the cell is changing dynamically, and not due to a direct key-stroke entry, the code seems to do nothing ...

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
If Target.Address = "$Y$2" Then
ManualClassListSorter
End If
End Sub

Can anyone think of a way to fix my combobox code so the combobox can be used as normal .. ie: just one click needed to make, and display, my choice ?

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Code tags added this time

[royUK]

You should try using the Change_Event

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Y$2" Then
        ManualClassListSorter
    End If
End Sub

What type of ComboBox are you using? If it's from the Controls TolBox then this shouldwork

Option Explicit

Private Sub ComboBox1_Change()
 ManualClassListSorter
End Sub