How can I sum a range of only the bold and visible numbers?

Write a custom VBA function that tests for bold and visible and sums up the
content of those.

HTH. Best wishs Harald

"John" wrote in message
...
How can I sum a range of only the bold and visible numbers?

Public Function SumVisBold(rngSumRange As Range) As Single
Dim rngCell As Range
For Each rngCell In rngSumRange
If IsNumeric(rngCell.Value) Then
If rngCell.Font.Bold = True Then
If rngCell.Rows.Hidden = False Then
If rngCell.Columns.Hidden = False Then
SumVisBold = SumVisBold + rngCell.Value
End If
End If
End If
End If
Next rngCell
End Function

Note: you will have to force a re-calc


Gord Dibben MS Excel MVP



On Tue, 10 Feb 2009 11:25:46 -0800, "John" wrote:

How can I sum a range of only the bold and visible numbers?