try using a formula in custom format, eg if(>1000000,[red],[blank]

THX
but it dosent work !!!!!!!!!!!!!!

This is the generic method for applying color  to part of a cell.

ActiveCell.Characters(Start:=3, Length:=3).font _
.ColorIndex=4

You would vary the Start, Length, and ColorIndex for the result you want.

I would have a for-next loop to step through the relevant cells
In that I would have a for-next loop to step through the characters  in the
cell
In that I would have a select case structure based on the code of each
character to set the color index
Immediately after the end select you have the line to set the color of the
character.

but the possition of the numeric  character is deferent form cell  to
another
i found this code in google groups



Sub BoldTwos()
Dim c As Range
Dim s As Long
Const Twos As String = "2"


For Each c In Selection
s = 1
With c
.NumberFormat = "@"
.Value = CStr(.Value)
Do While InStr(s, c.Text, Twos) > 0
s = InStr(s, c.Text, Twos)
.Characters(s, 1).Font.Bold = True
.Characters(s, 1).Font.Color = vbRed
s = s + 1
Loop
End With
Next c


End Sub
but i need to bold an color  all numbers 1'2'3'4'5'6'7'8'9'0

That is why I told you to step through the characters  in the cell  and color
each one.