Code to make buttons change colors on click

I am looking for help for code that when I click a button it says "RED" and also makes the button Red. Then when I click the button again, it displays "WHITE" and makes the button white. And then every time I click the button it just alternates back and forth between Red and White.

Any help would be appreciated
Thanks!

assign this macro to the button

Option Explicit

Sub BtnSwitch()
'----------------------------------------------------------------------------------
' Author    : Wotadude
' Date      : 11-Jan-2013
' Purpose   : switch button colour state
'----------------------------------------------------------------------------------
    
    With ActiveSheet.Shapes(Application.Caller)
        Select Case UCase(.TextFrame.Characters.Text)
            Case "RED"
                ' if red now
                .TextFrame.Characters.Text = "White"
                .Fill.ForeColor.RGB = RGB(255, 255, 255) ' white fill
                .TextFrame.Characters.Font.Color = RGB(255, 0, 0) ' red font
            Case Else
                ' start with red
                .TextFrame.Characters.Text = "Red"
                .TextFrame.Characters.Font.Color = RGB(255, 255, 255) ' red fill
                .Fill.ForeColor.RGB = RGB(255, 0, 0) ' white font
        End Select
    End With

End Sub

Wotadude,
Thanks for your help. This is what I needed! I appreciate your time.