I have got a set of numbers, some of which are bolded, while others are not.

I want to obtain the sum of numbers in bold only without changing the
sequence of data.

Thanks

You will need to use a User Defined function. If you are new to UDF set the
Security level to low/medium in (Tools|Macro|Security). From workbook launch
VBE using short-key Alt+F11. From menu 'Insert' a module and paste the below
code. Save get back to Workbook.

Function SumBold(varRange As Range)
Dim varCell As Range
For Each varCell In varRange
If varCell.Font.Bold = True Then
If IsNumeric(varCell) = True Then
SumBold = SumBold + varCell.Value
End If
End If
Next
End Function

The below formula should give you the sum of cells in bold. Please note that
the value will not change if you bold any new cell or change the font to
normal. The formula would require recalculation..for any changes....
=Sumbold(A1:A10)

If this post helps click Yes
---------------
Jacob Skaria


"Sum of Bold Numbers" wrote:

I have got a set of numbers, some of which are bolded, while others are not.

I want to obtain the sum of numbers in bold only without changing the
sequence of data.

Thanks