How to add a 2nd color?

[Eloise T]

Below is my VBA that allows me to toggle between magenta and green and none (default) tab colors. I would like to add a third color. How do I change to VBA code to allow a third color? ...e.g. black. So it would go from none (default) to magenta to green to black.


Sub Swap_Tab_Color()
Application.ScreenUpdating = False
a_tab = ActiveSheet.Name
a_color = Worksheets(a_tab).Tab.ColorIndex

' 1 = black, 3 = red, 4 = green, 7 = magenta

If a_color = 7 Then
a_color = 4
ElseIf a_color = 4 Then
a_color = xlNone
Else: a_color = xlNone
a_color = 7

End If
Worksheets(a_tab).Tab.ColorIndex = a_color
End Sub

 

[NARAYANK991]

Hi ,

Try this :

Sub Swap_Tab_Color()
    Dim colorindexarray As Variant
   
    colorindexarray = Array(-4142, 7, 4, 3, 1)
   
    a_tab = ActiveSheet.Name
    a_color = Worksheets(a_tab).Tab.ColorIndex

'  1 = black, 3 = red, 4 = green, 7 = magenta

    For i = 0 To UBound(colorindexarray)
        If a_color = colorindexarray(i) Then
          a_color = colorindexarray((i + 1) Mod (UBound(colorindexarray) + 1))
          Exit For
        End If
    Next
   
    Worksheets(a_tab).Tab.ColorIndex = a_color
End Sub

Narayan

 

[vletm]

Eloise T
... or something like next link:
http://forum.chandoo.org/threads/how-to-add-a-third-option-2nd-color.28128/

 

[Eloise T]

Eloise T
... or something like next link:
http://forum.chandoo.org/threads/how-to-add-a-third-option-2nd-color.28128/

I really should reference prior questions I've already asked, huh?
<blush>
I completely forgot about this!

 

[vletm]

Eloise T ... no no no
... You just remember it!
That sounds better, much better!