Color all sheet tabs in the workbook



Code:

Sub ColorSheetsTabs()
    Dim mySheet As Worksheet
    Dim i As Integer
    For Each mySheet In ActiveWorkbook.Sheets
        mySheet.Tab.ColorIndex = 3 + i
        i = i + 2
    Next
End Sub


Comments

NIGHTFLARE said…
Very simple and nice trick..

thank you