|First you post a question asking how to change all Tabs that are colored Orange to be No Color, then you post a question asking how to turn Tabs Orange.|
Make up your mind! ;-)
Anyway, once again we have the issue of what color Orange do you have. Excel 2003 was much more limited in choices for colors, so this type of thing was much easier to do than it is in 2007 or higher.
The first thing you need to do is determine what the ColorIndex number for your Orange font is.
You can do that with these steps:
1 - Paste this code into the VBA editor:
2 -Find a cell with an Orange font color and select it.
3 - Run the code
4 - Jot down the number shown in the Message Box
5 - Click OK
Once you have that number, paste this code into the VBA editor:
For shtNum = 1 To Sheets.Count
For Each cell In Sheets(shtNum).UsedRange
If cell.Font.ColorIndex = 44 Then
Sheets(shtNum).Tab.ColorIndex = 44
Now replace the 44 (twice) with whatever ColorIndex number you jotted down from the previous macro.
Run the 2nd piece of code.
One very important note:
The only way that I know to find a specific Font.ColorIndex in a spreadsheet is to check each cell in the UsedRange one by one.
If you have huge spreadsheets, with thousands of cell in the UsedRange, the code could take a long time to run. The code will stop checking each shet as soon as it finds a cell with a Font.ColorIndex that matches what's in the code, so if it's A1, things will go quickly. However, if it's something like RDC120376, it's going to take a while to get there.
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.