append color text (VBA)

[tcwm00a]

I have a column of people's names in a black font. Based on a condition (which I can code in VBA), I want to append, say, a RED Asterisk to the end of the people's names? Anyone know how to do this in VBA?

[mdmackillop]

Something like
[VBA]
Sub Macro1()
For Each cel In Selection
If Left(cel, 1) = "a" Then
cel.Value = cel.Value & "*"
cel.Characters(Start:=Len(cel), Length:=1).Font.Color = vbRed
End If
Next
End Sub

[/VBA]

[tcwm00a]

That did it! Thank you very much!!