Sub FixedFontSwitch()
' Paul Beverley - Version 13.05.20
' Switches font colour red -> blue -> black ->

' PB blue
myBlue = &HF0B011
' JY blue
myBlue = &HF0B011

Set rng = Selection.Range.Duplicate
rng.End = rng.start + 1
Select Case rng.Font.Color
  Case &H111111: Selection.Font.Color = &H1111FF
  Case &H1111FF: Selection.Font.Color = myBlue
  Case myBlue: Selection.Font.Color = &H111111
  Case Else: Selection.Font.Color = myBlue
End Select
End Sub