Boa noite Ponga

Neste link do site do Tomas Vasques tem um tutorial sobre o assunto:

http://www.tomasvasquez.com.br/blog/mic ... e-treeview

Espero ter ajudado.

Um abraço.

Boa noite!!!

Essa macro Ordena por Ordem Alfabética....

Sub SortWorksheets()
' sort worksheets in a workbook in ascending order
Dim sCount As Integer, i As Integer, j As Integer
    Application.ScreenUpdating = False
    sCount = Worksheets.Count
    If sCount = 1 Then Exit Sub
    For i = 1 To sCount - 1
        For j = i + 1 To sCount
            If Worksheets(j).Name < Worksheets(i).Name Then
                Worksheets(j).Move Before:=Worksheets(i)
            End If
        Next j
    Next i
End Sub

Caso não seja isso retorne