Sorry for providing not enough info.

Okay, cell 'A1' is null, a user (buyer) enters information using a Userform
screen which updates cell A1, because the user is a buyer, his/her text will
be in Red
If another user (stores) enters information using the same Userform screen,
and updates cell 'A1', his/her text would be in Blue and so forth.

Using the code below, changes all text to Red

Dim MyText As String
Dim MyTextCnt As Integer, MyRespCnt As Integer

MyText = Range("L" & MyRow).Value
MyTextCnt = Len(MyText)
MyRespCnt = Len(txtResponse.Value) + 1

Range("L" & MyRow).Value = MyText & Chr(10) & txtResponse.Value
'
Range("L" & MyRow).Select
With ActiveCell.Characters(Start:=MyTextCnt + 1, Length:=MyRespCnt).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With

I would like to keep the reply with different colors, can u or anyone
help.......
"Norman Jones" wrote:

Hi LookingGood,

From the little detail that you provide, it would seem that Excel's
Conditional Forma ( Menus | Format | Conditional Formatting...) option
would be appropriate

For more information see Debra Dalgleish at:

http://www.contextures.com/xlCondFormat01.html

If you need to automate this process, turn on the macro recorder while you
perform the operation manually. The resultant code may be edited to allow
for more general application.

If you experience problems with such editing, post back with the problematic
code.


---
Regards,
Norman


"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.