I am trying to adapt this to chage the tab colors. The problem is that no matter what value I use for the tab color, it always sets it to black. Are there seperate color indexes for the tab colors?
[VBA] Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer, ws As Variant
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
If ActiveWorkbook.Worksheets(I).Name = "Sheet1" Then
ActiveWorkbook.Worksheets(I).Tab.Color = 15
Else
If ActiveWorkbook.Worksheets(I).Name = "Sheet2" Then
ActiveWorkbook.Worksheets(I).Tab.Color = 25
End If
End If
Next I
End Sub [/VBA]
Also, can this be accomplished with a Select Case statement? Thanks