How to sort worksheet tabs by color automatically using VBA. We use the index worksheet property to access the worksheets and a nested looping process to arrange the worksheet tabs by color one by one quickly.

Here’s the complet VBA code to group worksheet tabs by color:

Sub SortWorksheetTabsBycolor()

Dim CurrentSheetIndex As Long

Dim PreviousSheetIndex As Long

Application.ScreenUpdating = False

For CurrentSheetIndex = 1 To Sheets.Count

For PreviousSheetIndex = 1 To Sheets.Count – 1

If Sheets(PreviousSheetIndex).Tab.ColorIndex = Sheets(CurrentSheetIndex).Tab.ColorIndex Then

Sheets(PreviousSheetIndex).Move before:=Sheets(CurrentSheetIndex)

End If

Next PreviousSheetIndex

Next CurrentSheetIndex

Application.ScreenUpdating = True

End Sub

References: (1) Color codes

(2) Refer to Sheets by Index Number

(3) Worksheet.Move method (Excel)