Excel VBA Script - Teil der Zelle [bold]

[1StEiN3]

Hi,
ich benötige für eine Exceltabelle ein VBA Script, welches einen Teil einer Zelle in Fett schreibt.
Als Beispiel:
Zelle A1 = Ulf - Rainer - Uschi
Dabei werde in den Zellen A1, A2 und A3 die Namen eingegeben, in Zelle A4 steht =A1 & " - " & A2 & " - " & A3, der Name der Zelle A1 soll in fett erscheinen.
Ich hab es schon so probiert:

    Range("A4").Select
    With ActiveCell.Characters(Start:=1, Length:=Len("A1")).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=(Len("A1") + 1), Length:=(Len("A2") + Len("A3"))).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Jedoch scheint es nur möglich zu sein, wenn ein fester Zellenwert da ist, also wenn die Namen in die Zelle direkt eingegeben werden. Sobald die Zellen aus den anderen genommen werden macht er die ganze Zelle in Fett.
Hat jemand schon so etwas gemacht oder weß wie es zu realisieren ist?
MfG
Stein