Automatically arrange tabs in alphabetical order

[tlc53]

Hello,
I'm wondering, is it possible for a VBA code to automatically sort the tabs by alphabetical order?
It is quite a large spreadsheet, with 42 tabs.
The first 3 tabs shouldn't be included when they are sorted. These tabs are called;
- Dashboard
- Invoice Data
- Client Details
The tabs following these are client invoice tabs and they are named/coded by 3x Letters and 2x numbers. For example;
AAP01
GRM01
GRM02
HER01
HER02
HER03
MER01
MER02
These tab names (above) can be changed depending on what clients are active. Unused/blank tabs are named ZZZ01, ZZZ02, ZZZ03 etc and they are kept at the end of the spreadsheet. These can be used to setup new clients. For example, ZZZ01 may turn into a client code BEB01.
As the spreadsheet it quite large, sorting the tabs manually takes quite a bit of time, especially when the tab needs to move from one end to the other.
Ideally, I would like the user to be able to activate a VBA code after amending/adding clients, so that it will automatically sort all the client tabs.
Thanks for your time!
Cheers

 

[Fluff]

How about

Sub tlc()
   Dim i As Long
   With CreateObject("system.collections.arraylist")
      For i = 4 To Sheets.Count
         .Add Sheets(i).name
      Next i
      .Sort
      For i = 0 To .Count - 1
         Sheets(.item(i)).Move Sheets(i + 4)
      Next i
   End With
End Sub

 

[tlc53]

How about

Sub tlc()
   Dim i As Long
   With CreateObject("system.collections.arraylist")
      For i = 4 To Sheets.Count
         .Add Sheets(i).name
      Next i
      .Sort
      For i = 0 To .Count - 1
         Sheets(.item(i)).Move Sheets(i + 4)
      Next i
   End With
End Sub

Lovely jubbly. Thank you! That worked perfectly

 

[Fluff]

You're welcome & thanks for the feedback.