Help writing macros to toggle through various formatting (font color, cell fill color, number format, decimals, borders)

[holcomjh]

I'm trying to write macros that will allow me to use a keyboard shortcut to quickly cycle through various options. Example, if I want to change the font colors in the "Start" column below, pressing the shortcut CTRL + SHIFT + C consecutively would change the fonts to black, then to blue, then to green, then to red, and cycle back to black (and continue to cycle each time I used the shortcut). Thank you in advance for any help.

Following the same logic, I'd like to use different shortcuts for the following formatting toggles:

 

[jolivanes]

Change as required.

Sub Change_Range_Color()
    Select Case Range("A2:A10").Font.Color
        Case RGB(0, 0, 255)
            Range("A2:A10").Font.Color = RGB(127, 255, 0)
        Case RGB(127, 255, 0)
            Range("A2:A10").Font.Color = RGB(255, 255, 0)
        Case RGB(255, 255, 0)
            Range("A2:A10").Font.Color = RGB(255, 0, 0)
        Case RGB(255, 0, 0)
            Range("A2:A10").Font.Color = RGB(127, 255, 212)
        Case RGB(127, 255, 212)
            Range("A2:A10").Font.Color = RGB(255, 228, 196)
        Case RGB(255, 228, 196)
            Range("A2:A10").Font.Color = RGB(138, 43, 226)
        Case RGB(138, 43, 226)
            Range("A2:A10").Font.Color = RGB(255, 20, 147)
        Case Else
            Range("A2:A10").Font.Color = RGB(0, 0, 255)
    End Select
End Sub