Sheetsortierung ohne 1. Buchstaben

Sub SortSheet()
Dim arr()
n = Worksheets.Count
ReDim arr(n)
'Array mit Sheetnamen der aktuellen Reihenfolge erstellen
For k = 4 To n
arr(k) = (Worksheets(k).Name)
Next k
For i = 4 To n
For j = 4 To n
If arr(j) > arr(i) Then
h = arr(i)
arr(i) = arr(j)
arr(j) = h
End If
Next j
Next i
For g = 4 To n
'hier wird einfach jedes Sheet nach hinten verschoben entsprechend der geordneten  _
Reihenfolge des Arrays
Worksheets(CStr(arr(g))).Move after:=Worksheets(n)
Next g
End Sub