Mit Hilfe einer kleinen Schleife kann man alle Tabellen auf-
oder absteigend sortieren.

Sub Blatter_Sortieren()
    Anzahl = ActiveWorkbook.Worksheets.Count
    For x = 1 To Anzahl
        For y = x To Anzahl
            If Worksheets(y).Name < Worksheets(x).Name Then
                Worksheets(y).Move Before:=Worksheets(x)
            End If
        Next y
    Next x
End Sub