Excel vba - como listar nomes de uma coluna em uma listbox em ordem alfabética

[RocketR]

Tenho alguns nomes de alguns alunos  em uma planilha na coluna A e preciso listar esses nomes em uma ListBox em um formulário em ordem alfabética.

 

Alguém pode me ajudar?

 

Estou usando o seguinte codigo, mas não se mostra efetivo:

Private Sub Clistar_Click()
    PresultadoAB.Clear
        For Each plan In Worksheets
            Set x = plan.Columns(1).Find(all)
            If Not x Is Nothing Then
                firstAddress = x.Address
                Do
                    plan.Select
                    x.Select
                    Range(x.Address).Select
                    ActiveCell.Offset(0, 1).Select
                    Pnomecurso = x.Text & " - " & ActiveCell
                    PresultadoAB.AddItem Pnomecurso
                    Set x = plan.Columns(1).FindNext(x)
                Loop While Not x Is Nothing And x.Address <> firstAddress
            Else
                MsgBox "Nenhum resultado encontrado!"
            End If
        Next
End Sub

PresultadoAB é a listbox

[Basole]

Veja se consegue adaptar o exemplo:

 

Classificar ListBox.zip