Sub FontRedOrBlack()
  Dim c As Range
  Set c = [a1]
  With c
    Select Case .Font.Color
      Case vbRed
        .Font.Color = vbBlack
      Case Else
        .Font.Color = vbRed
    End Select
  End With
End Sub