Is it possible to arrange tabs by a group name in each tab?

[tonywatsonhelp]

Hi Everyone,

In every sheet cell T6 I have a team name i.e "Team Tony"

Now as we go forward we will be adding new tabs with the tabs named after the person,
now what would be extremely helpful but i have no idea if possible would be to arrange (Order) the tabs by team name
So all of "Team Tony" are next to each other. etc.
if it helps I have the team names listed in control range L3:L8 so you could use this list if it make grouping then easier.
If we could also sort the tabs in alphabetical order that would be amazing.

Please help if you can
Thanks
Tony

 

[JGordon11]

Try this on a copy of your workbook

Sub ArrangeWS()
    Dim ws, k As Long, i As Long
    ReDim A(1 To Worksheets.Count, 1 To 2)
    For Each ws In Worksheets
        k = k + 1
        With ws
            A(k, 1) = .Name
            A(k, 2) = .[t6]
        End With
    Next
    With Application
        A = .Sort(A, 1)
        A = .Sort(A, 2)
    End With
    For i = k To 1 Step -1
        Worksheets(A(i, 1)).Move before:=Worksheets(1)
    Next
End Sub

 

[tonywatsonhelp]

Brilliant,
perfect fist time
Thanks for your help
tony