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