Sort worksheet tabs by custom list

[gailb]

I see all sorts of VBA procedure to sort worksheet tabs in alphabetical order, but what if I want to sort by a custom list.

In this workbook, there are 66 tabs I'd like to sort and the list is in Sheet1 Range("D5:D70")

There are 5 tabs before the 66 tabs begin, so the first tab begins in the 6th tab index number

[HansV]

Code: Select all

Sub SortSheets()
    Dim s As Variant
    Dim i As Long
    Application.ScreenUpdating = False
    s = Worksheets(1).Range("D5:D14").Value
    For i = 1 To UBound(s, 1)
        Worksheets(CStr(s(i, 1))).Move Before:=Worksheets(i + 5)
    Next i
    Application.ScreenUpdating = True
End Sub

[gailb]

Absolutely perfect and thank you Hans. Happy Holidays!

[HansV]

Happy Holidays to you (and all members and visitors of Eileen's Lounge) too!