How to color characters REG, GREEN, YELLOW in the same cell?

I have seen the VB code that will count cells with a specific color.
I have seen the VB code that will set the font color of all characters in a
cell.
What is the VB code that sets the colour of individual characters in a cell?
For example:
What is the VB code to set 5 characters GREEN,
2 characters YELLOW and 3 characters RED in the same cell?

Why would I want to do this?...

I have 10 project deliverable tasks grouped with the summary task at the
top. Each deliverable task has a status colour assigned (GREEN, YELLOW,
RED). The group summary line has a status cell filled with 10 # characters.
Each # character is to be coloured the colour of one of the 10 deliverable
task's status. This results in what looks like a colour bar showing the
status of all the tasks in the group.

Now, I manually count the number of GREEN, YELLOW and RED cells in a range.
I manually select the correct number of # characters in the summary status
cell and color them GREEN, YELLOW and RED as required. This produces a
visual color bar on the summary line.... manually. (I actually have 112
tasks across 11 function areas and this manual approach is slow, tedious and
error prone.)

How can I automate this with VB code?

Thank you for any suggestions.

Bob

Hi Bob
you can use the 'characters' object for this. e.g.
With Worksheets("Sheet1").Range("A1")
.Value = "teststringteststring"
.Characters(1, 5).Font.colorindex = 10
.Characters(6, 3).Font.colorindex = 3
End With

Frank

Bob Hillier wrote:
I have seen the VB code that will count cells with a specific color.
I have seen the VB code that will set the font color of all
characters in a cell.
What is the VB code that sets the colour of individual characters in
a cell? For example:
What is the VB code to set 5 characters GREEN,
2 characters YELLOW and 3 characters RED in the same cell?

Why would I want to do this?...

I have 10 project deliverable tasks grouped with the summary task at
the top. Each deliverable task has a status colour assigned (GREEN,
YELLOW, RED). The group summary line has a status cell filled with 10
# characters. Each # character is to be coloured the colour of one of
the 10 deliverable task's status. This results in what looks like a
colour bar showing the status of all the tasks in the group.

Now, I manually count the number of GREEN, YELLOW and RED cells in a
range. I manually select the correct number of # characters in the
summary status cell and color them GREEN, YELLOW and RED as required.
This produces a visual color bar on the summary line.... manually. (I
actually have 112 tasks across 11 function areas and this manual
approach is slow, tedious and error prone.)

How can I automate this with VB code?

Thank you for any suggestions.

Bob