sort combobox results in userform

[MrMode]

I have created a user form that has combo boxes which use an advanced filter to populate list boxes.

The unique / distinct results are returned in the order in which they appear in the list, I would like to sort them desc but have no idea how to?!

Private Sub TestPopulatecmbCategory()
    Dim v, e
    With Sheets("DATA").Range("A2:A39")
        v = .Value
    End With
    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each e In v
            If Not .exists(e) Then .Add e, Nothing
        Next
        If .Count Then Me.cmbCategory.List = Application.Transpose(.keys)
    End With
    
     
End Sub

Any and all help most appreciated

 

[combo]

You may find useful SortDictionary procedure, by Cip Pearson:

http://www.cpearson.com/excel/CollectionsAndDictionaries.htm

combo

 

[strongm]

Or you could just sort the source range. So something like:

[blue]Private Sub TestPopulatecmbCategory()
    Dim myRange As Range
    
    Set myRange = Sheets("DATA").Range("A2:A39")
        
    With Sheets("DATA").Sort
        .SortFields.Clear
        .SortFields.Add myRange, xlSortOnValues, xlDescending
        .SetRange myRange
        .Apply
    End With
    
    Me.cmbCategory.List = myRange.Value
End Sub[/blue]

 

[MrMode]

Thank you both. Interesting ways to approach the issue I will work on both.