Wie kann ich meine 50 Tabellenblätter in einer Excel ARbeitsmappe nach Namen sortieren lassen!
Vielen Dank für Ihren Tipp!
R. Hohl
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