aufsteigende Sortierung

Sub BlattKopieren()
Dim intIndex1 As Integer, intIndex2 As Integer, strSheetname As String
Application.ScreenUpdating = False
Range("H1").Select
Columns("H:N").Hidden = False
With Sheets("GL_02")
.Copy Before:=Sheets(3)
.Columns("I:M").Hidden = True
End With
strSheetname = ActiveSheet.Name
For intIndex1 = 3 To Worksheets.Count - 3
For intIndex2 = intIndex1 + 1 To Worksheets.Count - 2
If LCase$(Worksheets(intIndex2).Name) > LCase$(Worksheets(intIndex1).Name) Then
Worksheets(intIndex2).Move Before:=Sheets(intIndex1)
End If
Next
Next
Sheets(strSheetname).Activate
Application.ScreenUpdating = True
UserForm1.Show
End Sub