Text color change not showing on cell value

  • I have this simple code that needs to change a string color so that half is red and half is blue. When i break the string up it shows the color fine but when i put them back together the color reverts to black. Is there a simple way of keeping the color on the halves?

    TextColorTest.xlsm

  • How about

    Code
    1. With Sheet1.Range("D1")
    2. .Value = Text3
    3. .Font.Color = vbBlue
    4. .Characters(Len(Text1) + 1, Len(Text3)).Font.Color = vbRed
    5. End With

    You also need to change text3 to

    Code
    1. Text3 = Text1 & " " & Text2