Strg+f soll Text einfärben

brauche mal wieder Hilfe:

die Tastenkombination Strg + f bzw. Strg + c soll den Text der aktiven Zelle mit einer bestimmten Farbe versehen.
Wenn ich folgenden Makro die Tastenkombination Strg + f zuweise geht es auch:

Sub FarbeVergeben()
If ActiveCell.Value = "" Then
Exit Sub
Else
ActiveCell.Font.ColorIndex = 8
End If
End Sub

Da es aber sechs unterschiedliche Tastenkombinationen mit je einer Farbe ist hätte ich mir was vorgestellt wo ich keine sechs Makro schreiben muss sonder die Tasten abgefragt werden und dann jeweils die entsprechende Funktion ausgeführt wird (mit Select.....Case).

Danke euch schon mal
Oswald