Office: Arbeitsblätter alphabetisch sortieren

Weiß jemand wie das ohnen aufwendiges Verschieben/Kopieren möglich ist.

Danke!

 

Hallo!

Irgendwo hatte ich mal dieses Makro dafür gefunden:

Code:

Sub SheetsAlphaSort()
Dim i As Integer, j As Integer, k As Integer
k = ActiveWorkbook.Worksheets.Count
For i = 1 To k
For j = i To k
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub