Sum Bold Numbers with Macro

[constantinet]

I am looking for macro that will sum bolded numbers
The numbers that I need sum are located in B2:D2 and I would like the total number in E
Numbers are automatically bolded from a pivot table created with macro.

Thank you in advance for any help provided.

 

[JoeMo]

Is there only one number per cell or can there be more than one number per cell? If the latter case, can you post an example?

 

[mse330]

This is a UDF which should sum bold numbers …

Function SumBold(Rg As Range) As Double

Dim c As Range, x As Double

Application.Volatile
For Each c In Rg
    If c.Font.Bold = True Then
        x = x + c.Value
    End If
Next

SumBold = x

End Function

 

[constantinet]

Is there only one number per cell or can there be more than one number per cell? If the latter case, can you post an example?

There is one number per cell

 

[JoeMo]

There is one number per cell

Sub SumBold()
Dim S As Double, c As Range
For Each c In Range("B2:D2")  'change range to suit
    If IsNumeric(c.Value) And c.Font.Bold Then S = S + c.Value
Next c
Range("E2").Value = S
End Sub