Note that this doesn't update when you bold/unbold cells.

If you put the line

Application.Volatile

as the second line, it will update whenever any cell in the sheet is
calculated. Or you could hit F9.

In article ,
"Bob Phillips" wrote:

You could use a UDF

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