Quote Originally Posted by mrprofit View Post
instead of using all the sheets name, what code to just choose all sheets

Code:
   Sheets("Sheet3").Tab.ColorIndex = 46
   Sheets("Sheet2").Tab.ColorIndex = 46
   Sheets("Sheet1").Tab.ColorIndex = 46
it this the code ?
Code:
worksheets.Tab.ColorIndex = 46
Try it this way...
Code:
Dim WS As WorkSheet
....
....
For Each WS in Worksheets
  WS.Tab.ColorIndex = 46
Next