Hallo forumleden
ik heb deze code gevonden om de tabbladen te sorteren
kan iemand mij helpen deze aan te passen zodat hij de eerste 5 tabbladen laat staan deze zijn met namen en dan begint met sorteren de andere bladen zijn met getallen.
bvd. ronnie
ik heb deze code gevonden om de tabbladen te sorteren
Code:
Option Explicit
Sub SortSheets()
Application.ScreenUpdating = False
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count - 1 'Aantal tabbladen die aanwezig zijn / Pak 1 tabblad
For J = I + 1 To Sheets.Count ' Pak 1 tabblad verder
If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then 'Als tablad 1 groter in alfabet is dan tabblad 2
Sheets(J).Move Before:=Sheets(I) 'wissel deze om
End If
Next J
Next I
End Sub
bvd. ronnie