Conditional formatting UDF value error

Hello everyone
I have UDF function that enables me to count colored cells (conditional formatting cells) and sum the values of colored cells

Please Login or Register  to view this content.

I need to update results of the UDF .. as I noticed the following ..if I select any cell withing A1:B15 which has conditional formatting rules, the results give a value error ..but when selecting any other cell , everything goes right..
Can I fix this debug?

Maybe this.
Here's the formula I used in cell G3 of your sample sheet.

Formula:

Please Login or Register  to view this content.

Actually, the problem occurs if you select a cell anywhere in column A or column B.

A workaround is to add this near the start of your code:

Please Login or Register  to view this content.

It doesn't make the problem go away ... but you could change the error message to say "don't select this cell!"

Regards, TMS

See next code

Please Login or Register  to view this content.

Thanks Mr. Bruce for nice formula
In fact I know that I can achieve counting using Countif function ..but in original file the issue is very complicated so I use this UDF function

Thank you very much Mr. TMS for this addition to code but I need to deal with the UDF in normal way
That's I need to select any cell in any column without that error ..Just to display or update the results at once

Mr. PCI
That's awesome .. really fascinating
Exactly as needed
Thank you very much for great help

YasserKhalil you are welcome
It was a pleasure, to understand the issue and to prepare the update