VBA Counting Conditional Formatted Cells

[Raggedyman]

I'm looking to figure the code to count conditional formatted cells.
D2:O2 totals has the following formula =IF(COUNTIF(D3:D8,MIN(D3:D8))=1,MIN(D3:D8)," ")
Each cell in the range of D2:O5 are conditionally formatted so if there is a low number, the cell highlights "Yellow"
What I'm have trouble with is column Q2:Q6, these cells should total the highlighted cell(s) but I'm at a loss.
Q2:Q6 should total the number of highlighted cells from each row.
Thank you in advance.

Book1
	A	B		D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1		Month		Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec	Tot	Marks
2	1	Jim		5	10	15	20	25	29	35	39	45	50	55	60	388	0
3	2	Jane		5	11	15	19	25	30	34	40	45	50	55	60	389
4	3	Nancy		5	10	15	20	25	29	35	40	45	50	55	59	388
5	4	Joe		5	11	15	18	25	28	35	40	45	50	55	60	387
6	5	April		4	10	14	19	25	30	35	40	45	50	55	60	387
8				4		14	18		28	34	39				59		7
Marks

Cell Formulas
Range	Formula
Q2	Q2	=SUMIF(D2:O2,S2,D2:O2)
P2:P6	P2	=SUM(D2:O2)
D8:L8	D8	=IF(COUNTIF(D2:D7,MIN(D2:D7))=1,MIN(D2:D7)," ")
M8:O8	M8	=IF(COUNTIF(M2:M6,MIN(M2:M6))=1,MIN(M2:M6)," ")
Q8	Q8	=COUNT(D8:O8)

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
C2:O6	Cell Value	=C$8	text	NO
B3	Cell	contains a blank value	text	NO
B2	Cell	contains a blank value	text	NO

 

[footoo]

=SUMPRODUCT((D2:O2=D$8:O$8)*(D2:O2=D$8:O$8))

 

[Raggedyman]

Your formula worked to perfection. Thanks for your assistance!!!

 

[Peter_SSs]

.. or even
=SUMPRODUCT(--(D2:O2=D$8:O$8))

 

[Raggedyman]

That formula works also!!!

 

[Peter_SSs]

That formula works also!!!