Werkbladen sorteren op naam

[digicat]

Hoe kan je in Excel de werkbladen sorteren op naam.

Als je meerdere werkbladen selecteert, wordt de sorteerfunctie inactief.

 

[fihod]

Lukt met onderstaande macro

Sub SortWerkbladen()

Dim i As Integer
Dim y As Integer
Dim x As Integer
Dim mySheet As Object
Dim SheetName As String
i = Sheets.Count

For y = 1 To i
Set mySheet = Sheets(y)
SheetName = mySheet.Name
For x = y To i
If SheetName > Sheets(x).Name Then
SheetName = Sheets(x).Name
End If
Next
Sheets(SheetName).Move Before:=Sheets(y)
Next

End Sub