Sub sumbolded()
For Each c In Range("b1:b21")
If c.Font.Bold = True Then ms = ms + c
Next c
MsgBox ms
End Sub

--
Don Guillett
SalesAid Software

"Rich D" wrote in message
...
I made them bolded...they are like subtotals...I didn't want to make a
separate column of them. Can it be done?
--
Rich D
Armstrong Custom Homes
Redmond


"Don Guillett" wrote:

How did they become bolded?

--
Don Guillett
SalesAid Software

"Rich D" wrote in message
...
I have a column of numbers and some of them are in boldface. How can I
add
only the boldfaced numbers in the column?

Rich
--
Rich D
Armstrong Custom Homes
Redmond