From vba help index for CHARACTERS

With Worksheets("Sheet1").Range("B1")
.Value = "New Title"
.Characters(5, 5).Font.Bold = True
..Characters(15, 5).Font.colorindex=5
End With


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jo Ke" wrote in message
...
I know that Excel will allow separate formatting of data within a cell
(i.e. "37715CCC", where the numbers ("37715") are "blue" & "bold" and
the letters ("CCC") are "black", "bold" & "italic") ., but is there a
way (VBA) of going thru a selection of cells, finding the letters,
make them "blue" & "bold" and the numbers "black", "bold" & "italic".?
I'm just trying to make the alphanumeric data easier to read (you know
distinguishing "O" from "0").