Bob, thank you for your response.

I have used the code u have provided and i am still getting the same result
that I have originally.

Here the scenerio, I have manually enter 2 sentences into cell 'A1', the
first sentence, set the text to red whilst the 2nd with blue. I placed the
3rd sentence into cell A2 in Black text

Using your code, where u have 'text in red', replaced it bye referencing
cell A2 and changed the colorindex from 3 to 4
Ran the code, the result as follows
Sentences 1 & 2 in cell A1 changed all to blue, whilst the sentence cell A2
that appended to cell A1 show as green which is corrent.
Why did the sentence 1 change to blue?

Please help

"Bob Phillips" wrote:

Dim i
With ActiveCell
i = Len(.Value)
.Value = .Value & " text in red"
.Characters(i + 1, Len(.Value) - i).Font.ColorIndex = 3
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"LookingGood" wrote in message
...
How do u modify data in a cell with different color text thru VBA.
I want to append data with a different color to the existing cell.