change sheet tab color

[dani1]

hi experts!

how can i change all sheet tab colors using a macro?i need one color on all sheets using a macros.

 

[shg]

Would it not be simpler to select the first tab, hold the Shift key and click the last tab, then right-click any tab, select Tab Color, ...

 

[bertie]

Place this code in the ThisWorkbook module.

[COLOR=darkblue]Sub[/COLOR] ChangeTabColour()
   [COLOR=darkblue]Dim[/COLOR] ws [COLOR=darkblue]As[/COLOR] Worksheet
 
   [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] ws [COLOR=darkblue]In[/COLOR] ThisWorkbook.Worksheets
      ws.Tab.ColorIndex = 6   [COLOR=green]'yellow[/COLOR]
   [COLOR=darkblue]Next[/COLOR] ws
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

See here for colour index chart
http://www.mvps.org/dmcritchie/excel/colors.htm

 

[Datsmart]

This will color all WorkSheet tabs red:

Sub ColorAllTabs()
Dim Sht As Worksheet
    For Each Sht In ThisWorkbook.Sheets
        Sht.Tab.ColorIndex = 3
    Next Sht
End Sub

This will clear all tabs of Color:

Sub ClearAllTabs()
Dim Sht As Worksheet
    For Each Sht In ThisWorkbook.Sheets
        Sht.Tab.ColorIndex = xlNone
    Next Sht
End Sub