ISBOLD function

[LearnMeExcel]

HI
i am using this function to know the bold cells, then sum it

Function ISBOLD(c As Range) As Boolean
If c.Font.Bold Then
    ISBOLD = True
End If
End Function

but i am try to use it as array, it refused, how i can convert it to array

=SUM(IF(ISBOLD(A1:A8),1))

and another question i want function to check date
ISDATE
could any one help

 

[Tom Urtis]

You might consider this UDF:

Public Function SumBold(rng As Range) As Double
Application.Volatile
Dim cell As Range
SumBold = 0
For Each cell In rng
If cell.Font.Bold = True Then SumBold = SumBold + cell.Value
Next cell
End Function

Example formula in a cell:

=SumBold(A1:A8)

Worked for me.

 

[LearnMeExcel]

thanx tom
but in some cases i need result just true or false
i am looking to modify my formula