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

---