The formatting recognized by VBA is the formatting applied to the cell in the absence of any conditional formatting being turned on. It is possible to write your function so that it also checks the condition, and returns the formatting for that condition. You can either hard code this, or write code to examine the conditions for each cell, and determine which apply, and then extract the formatting, then count the cells.

Did I make it sound complicated? It’s even more complicated than that. I wish I could tell you otherwise.

However, the function counts cells correctly if they are bold.

But, if I have Conditional Formatting set, that makes a particular cell BOLD because it fits some criteria, that cell will NOT be counted by this function.

Any thoughts?

Thanks,

Adam

I’m having the same problem that Anna had above, namely that I get a response of “#NAME?”

I have followed your link about how to use someone else’s macro, but that doesn’t really apply, as this is a function.

Here’s what I’m doing:

I created the Function, and alt-Q to save it. I then went into a cell, and started to type “=countbold”, and the whole function name appeared for me to select. I selected it, and put in a range, and got the “#NAME?” error.

Any help would be greatly appreciated.

I’m using Excel 2007, if that’s relevant.

Thank you,

ADam

Tried the ‘Application.Volatile’ part, but the values in the worksheet have not become dynamic.
-=-=-=-=-=-=-=-=-=-=-
Function CountBoldCellsInRange(rng As Range) As Long
Application.Volatile

Dim rCell As Range
Dim iBold As Long

iBold = 0
For Each rCell In rng
If rCell.Font.Bold Then
iBold = iBold + 1
End If
Next

CountBoldCellsInRange = iBold
End Function
-=-=-=-=-=-=-=-=-=-=-
What am I doing wrong here?

Regards,
Deepak

#NAME? means that Excel doesn’t recognize CountBoldCellsInRange. Did you place the function into a regular code module? Follow the protocol in How To: Use Someone Else’s Macro to make sure you are implementing the function properly. (I usually remember to include a link to that tutorial, but I forgot. My bad.)

=CountBoldCellsInRange(AJ5:AJ7)

#NAME?

Not sure why this is not working

However, the Microsoft efforts to de-emphasize XLM have been successful, in that few who picked up Excel at or after Excel 5/95 have been exposed to XLM. Those of us who learned XLM before VBA have forgotten most of the XLM we ever knew.

If the Get.Cell XLM functions could be incorporated into Excel’s library of worksheet functions, it would go a long way toward their goal of making XLM unnecessary.