ich habe mehrere Blätter (25) nach Namen betitelt. Gibt es eine Möglichkeit die nach Alphabet zu sortieren?
Günter
Sub SheetSortName()
Dim x As Integer, y As Integer, wsCount As Integer
wsCount = ActiveWorkbook.Worksheets.Count
For x = 1 To wsCount
For y = x To wsCount
If UCase(Worksheets(y).Name) < UCase(Worksheets(x).Name) Then
Worksheets(y).Move before:=Worksheets(x)
End If
Next y
Next x
End Sub