Public Function IsBold(ByRef rng As Excel.Range) As Boolean
Dim rArea As Range
Dim rCell As Range
Dim bResult As Boolean
Application.Volatile
bResult = True
For Each rArea In rng
For Each rCell In rArea
bResult = bResult And rCell.Font.Bold
Next rCell
Next rArea
IsBold = bResult
End Function
Note that changing format doesn't trigger a calculation event, so you'd
need to manually trigger a recalc to make sure that the formula returned
the right value.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.