Wörter ersetzen

Sub text_1()
ActiveCell.FormulaR1C1 = "Deutschland"
End Sub
Sub text_2()
ActiveCell.FormulaR1C1 = "Frankreich"
End Sub

jeden Text füge ich einer Tastenkombination zu.

Es klappt wenn ich zB. STRG+a drücke, schreibt es mir Deutschland hin. Ich habe aber noch 2 Probleme, Wenn ich die Zelle anklicke überschreibt es mir das Geschribene. Ich möchte die tastenkombination anwenden wenn ich "in" der Zelle bin, es steht also schon was drin.

2. Wo vermerke ich wie das Geschriebene aussehen soll, wenn ich zb. STRG+a drücke, ich möchte nicht nur Deutschland, sondern Deutschland fett und rote Schrift.

Bin für jede Hilfe dankbar!