But if you are prepared to use VBA then try this:

Sub tryme()

Range("G12") = Range("A12") & Range("B12") & Range("C12") & Range("D12") &
Range("E12")
mystart = Len(Range("A12")) + Len(Range("B12")) + 1
mylen = Len(Range("C12"))
Range("G12").Activate
With ActiveCell.Characters(Start:=mystart, Length:=mylen).Font
.ColorIndex = 3
End With
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Dave Peterson" wrote in message
...
If you keep the concatenation a formula, then you can't do this.

Sheila wrote:

When concatenating cells 1-5, to appear in cell 6, how do I get cell 3 to
appear red (with all others black) in cell 6?

--

Dave Peterson