Michael,

Sub Example2()
Dim myCell As Range
For Each myCell In Columns("C:C").SpecialCells(xlCellTypeConstants, 1)
If myCell.Font.Bold Then myCell(1, 2).Value = "This is a bold number"
Next myCell
End Sub

HTH,
Bernie
MS Excel MVP

"Michael McClellan" wrote in message
m...
OK Gentlemen,

I think I need to change my strategy a bit. I actually need to loop
down to the first non-bold entry. All the data I don't need is bold
for some reason.

Any ideas?


"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Michael,

You can use the special cells method: the example below will put "This
is a
number" into the adjacent cell in column D for every number in column C.

Note that the "xlCellTypeConstant" means that the numbers are actual
constants, not the values returned by formulas, which would require
"xlCellTypeFormulas" instead.

HTH,
Bernie
MS Excel MVP


Sub Example()
Dim myCell As Range
For Each myCell In Columns("C:C").SpecialCells(xlCellTypeConstants, 1)
myCell(1, 2).Value = "This is a number"
Next myCell
End Sub

"Michael McClellan" wrote in message
m...
I'm looking to build a macro that will loop down rows and then stop
and the first numerical character, modify some adjacent cells, then
move on to the next numerical character.

Does anybody have a clue?