sumbold

[Stclements1]

I found this code on the web and have put this into a module and whilst it works it doesn't update if there is a change in the array being calculated.
For example if I had 18 values of which 9 were bold and came to a value of 780 and then one of those bold values were no longer bold the value wouldn't change. Is there further coding that I can put into the function so it updates automatically. In addition the code rounds up the numbers rather than giving the exact number.

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
    End If
Next
SumBold = xSum
End Function

 

[Fluff]

This will return the exact number & will run whenever any cell on the sheet re-caclulates

Function SumBold(WorkRng As Range) As Double
Dim Rng As Range
Dim xSum As Double
Application.Volatile
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

There is no way to run the function if the cell format is changed. You could create a SelectionChange event that forces calculation, but that means the sheet will recalculate whenever you select a different cell.

 

[Stclements1]

Perfect many thanks

 

[Fluff]

You're welcome & thanks for the feedback.