How to "reset" tabbed sheet colors back to normal?

[Eloise T]

Is there a way to use a "button" as a toggle like a light switch to toggle the tab color on and off?

 

[vletm]

One button two colors =>

Sub Swap_Tab_Color()
    Application.ScreenUpdating = False
    a_tab = ActiveSheet.Name
    a_color = Worksheets(a_tab).Tab.ColorIndex
    If a_color = 3 Then
        a_color = xlNone
    Else
        a_color = 3
    End If
    Worksheets(a_tab).Tab.ColorIndex = a_color
End Sub

 

[Eloise T]

One button two colors =>

You're a genius.
Thank you!