Count if bold

[Gower1983]

Hello,

I have the below VBA to count bold cells. Does anyone know what to add to make show the results of visible cells when filtered?

Function CountBold(Rng As Range) As Long
Dim Cell As Range
For Each Cell In Rng
If Cell.Font.Bold Then
CountBold = CountBold + 1
End If
Next Cell
End Function

 

[MARK858]

Maybe...

Function CountBold(Rng As Range) As Long
    Dim Cell As Range
    For Each Cell In Rng
        If Cell.EntireRow.Hidden = False And Cell.Font.Bold Then
            CountBold = CountBold + 1
        End If
    Next Cell
End Function

 

[Gower1983]

Perfect thank you

 

[MARK858]

You're welcome