Скачать или смотреть Sort Worksheet Tabs By Color

How to sort worksheet tabs by color automatically using VBA.
Here's the complete VBA code:
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: http://dmcritchie.mvps.org/excel/colo...
(2) Refer to Sheets by Index Number: https://docs.microsoft.com/en-us/offi...
(3)Worksheet.Move method (Excel):
https://docs.microsoft.com/en-us/offi...

Details also available at https://www.exceltrainingvideos.com/s...