Changing Tab color to "No Color"

[oam]

I am working on a macro to change tab colors based on two factors but I need to be able to change the tab color to "No Color" if the factors change. I have the code changing the tab colors but I am unable to get it to return to "No Color".

[Paul_Hossler]

Macro recorder will usually point you in the right direction



ActiveWorkbook.Sheets("Sheet1").Tab.Color = xlNone

[oam]

Thank you your help, How can I keep the same font style as a standard tab?

[Paul_Hossler]

I didn't think changing the tab color would change the font.

Does it?

Also what do you mean by a 'standard tab'?

[oam]

When I use the macro to set the color to "xlNone" the font color turns to black (see below) the other fonts are blue. If I manually change the tab color to "No Color" the tab font changes to light blue as shown below.


14170

[Paul_Hossler]

See if this is any better. I don't have the blue colors on mine

14171



With ActiveWorkbook.Sheets("Sheet1").Tab
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With



The other thing to try would be to record a macro while you manually reset the color

[oam]

It does not return it to how the tab was before but I may have to change it manually. Do you know how to change the font colors?

Thank you for your help

[Paul_Hossler]

I think those parameters are part of the Theme - look at the picture and explore with your configuration.

The quickest thing I could suggest is to record a macro to do what you want, and then incorporate the resulting code




14204

[oam]

Thank for your help! I think I have gone as far with this as I can; nowhere in the web info tells how to change the tabs back to there pervious theme so I picked a color that stands out and should work.

Again, thank you for all your help.