tabbladen sorten

[ronnie123]

Hallo forumleden
ik heb deze code gevonden om de tabbladen te sorteren

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

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

 

[ExcelAmateur]

Heb je al geprobeerd - For I = 5 To .....

 

[ronnie123]

Hallo excelamateur
bedankt voor de reactie, de oplossing werkt perfect.
heb er zelf geen verstand van ben daarom blij dat jullie er zijn.
groetjes ronnie