Classificar Planilhas Alfabeticamente

modClassificarPlanilhas.bas

'source: https://qr.ae/TWs7hb
'author: Chip Pearson
Sub SortWorksheets()
Dim i As Long, j As Long, n As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
With ActiveWorkbook
    n = .Worksheets.Count
    If n > 1 Then
        For i = 2 To n
            For j = 2 To n
                If .Worksheets(j).Name < .Worksheets(j - 1).Name Then .Worksheets(j).Move Before:=.Worksheets(j - 1)
            Next
        Next
    End If
End With
End Sub