try this for column D

Sub sumbold()
x = Cells(Rows.Count, "d").End(xlUp).Row
For Each c In Range(Cells(2, 4), Cells(x, 4))
If c.Font.Bold Then mysum = mysum + c
Next
MsgBox mysum
End Sub

--
Don Guillett
SalesAid Software

"Wanda" wrote in message
...
Hi!
I need to get a total from a worksheet that has hundreds of amounts in it.
However, I only need the total of the amounts that were marked with have
BOLD
font. Please help me I don't have much experience with EXCEL.

Thank you very much!

W a n d a