Give this a try.

Sub SumTheBold()
Dim Mud As Range
Dim cell As Range
Dim i As Integer

Set Mud = Range("A1:A5")

For Each cell In Mud
If cell.Font.Bold = True Then
i = cell.Value + i
End If
Next

MsgBox i
End Sub

HTH
Regards,
Howard


"Bytemylobster" wrote in message
...
Is there a way to add the values of a column, adding just the numbers that
are in bold format?