BUY EXCEL BOOKS ONLINE: 1. VBA & Macros      2. VBA for Modelers      3. Excel 2013 VBA and Macros     
4. Excel VBA for Dummies      5. Excel with VBA & .NET      6. Mastering VBA      7. Excel 2013 Programming

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


NIGHTFLARE said...

Very simple and nice trick..

thank you