Cara eu sei que tem alguns jeitos de fazer se você quiser classificar itens de uma coluna e listar em ordem na combo essa linha abaixo vai funcionar.

Option Explicit
Dim FillRange As Range
Dim c As Range

Private Sub CommandButton1_Click()
Set FillRange = Range(Range("A1"), Range("A1").End(xlDown))
FillRange.Sort Key1:=Range("A1"), Order1:=xlAscending
cboList.Clear
For Each c In FillRange
cboList.AddItem c
Next

End Sub

É que o conteudo do combo não esta em uma coluna ou planilha, o que estou exibindo no combo é o nome das abas que eu tenho na minha planilha, e já são muitas....