This ExtendOffice article explains how to insert some code into a Module in order to calculate the values of numbers of which are emboldened:
However, the code ignores decimal places
and returns inaccurate results (especially when dealing with small values).
To test it, I populated a number of emboldened cells with a value of "0.5" or less. The code treated them all as "0" and, thus, resulted in a calculation of zero. However, when I entered values of "0.51" and above, all were rounded up to "1", thus - again - completely miscalculating the result.
Does anyone have a fix for this? Code follows.
Function SumBold(WorkRng As Range)
Dim Rng As Range
Dim xSum As Long
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
SumBold = xSum