VBA Colorindex Bring Back Header

[anthonyexcel]

Good afternoon I have some cells that are colorindexed. I need to count those cells. The colorindexs are 5, 3, and 14. Please see below.
<title>Excel Jeanie HTML</title>Sheet1

*	A	B	C	D
1	Course	Washington	Lincoln	Center
2	ACCOUNTING I	*	*	*
3	ADMIN STUDY HALL	*	*	*
4	ADV BAND	*	*	*
5	ADVANCED DIGITAL IMAGING	*	*	*
6	ADVANCED DRAWING	*	*	*
7	ADVANCED PLAYWRITING	*	*	*
8	ADVANCED POTTERY	*	*	*
9	ADVANCED STUDIO ARTS	*	*	*
10	ALGEBRA I	*	*	*
11	ADVISORY	*	*	*
12	BIOLOGY	*	*	*
13	AE ENG 1	*	*	*
14	ENGLISH 1	*	*	*
15	ENGLISH 2	*	*	*
16	GEOMETRY	*	*	*
17	US HIST	*	*	*

<colgroup><col style="font-weight:bold; width:30px; "><col style="width:254px;"><col style="width:106px;"><col style="width:106px;"><col style="width:106px;"></colgroup><tbody>
</tbody>

Excel tables to the web >> Excel Jeanie HTML 4

<input class="SYN_LNN" value="2" type="label"><input id="syn_ctrl2" class="SYN_BCH" role="button" value="-" type="label">


<input class="SYN_LNN" value="3" type="label"><input id="syn_ctrl3" class="SYN_BCH" role="button" value="-" type="label">





This is what I need
<title>Excel Jeanie HTML</title>Sheet1

*	A	B	C	D	E
1	Course	Washington	Lincoln	Center	Results
2	ACCOUNTING I	*	*	*	Lincoln, Center
3	ADMIN STUDY HALL	*	*	*	Lincoln
4	ADV BAND	*	*	*	Lincoln
5	ADVANCED DIGITAL IMAGING	*	*	*	Washington, Lincoln, Center
6	ADVANCED DRAWING	*	*	*	Lincoln
7	ADVANCED PLAYWRITING	*	*	*	Lincoln
8	ADVANCED POTTERY	*	*	*	Lincoln
9	ADVANCED STUDIO ARTS	*	*	*	Lincoln
10	ALGEBRA I	*	*	*	Washington
11	ADVISORY	*	*	*	Lincoln
12	BIOLOGY	*	*	*	Washington, Center
13	AE ENG 1	*	*	*	Washington
14	ENGLISH 1	*	*	*	Washington
15	ENGLISH 2	*	*	*	Washington
16	GEOMETRY	*	*	*	Washington
17	US HIST	*	*	*	Washington, Center

<colgroup><col style="font-weight:bold; width:30px; "><col style="width:254px;"><col style="width:106px;"><col style="width:106px;"><col style="width:106px;"><col style="width:187px;"></colgroup><tbody>
</tbody>

Excel tables to the web >> Excel Jeanie HTML 4

<input class="SYN_LNN" value="2" type="label"><input id="syn_ctrl2" class="SYN_BCH" role="button" value="-" type="label">


<input class="SYN_LNN" value="3" type="label"><input id="syn_ctrl3" class="SYN_BCH" role="button" value="-" type="label">


Thanks in advance!

 

[planetpj]

Here is one way! Use it like this:
If header is in B1:D1 then in E2 put =CountingSchools($B$1:$D$1,B2:D2)

Function CountingSchools(Schools, r As Range)
    For Each cell In r
       If cell.Interior.ColorIndex = 3 Or cell.Interior.ColorIndex = 5 Or cell.Interior.ColorIndex = 14 Then
            CountingSchools = CountingSchools & " " & Cells(Schools.Row, cell.Column) & ", "
       End If
    Next cell
    CountingSchools = Left(CountingSchools, Len(CountingSchools) - 2)
End Function

 

[anthonyexcel]

Sorry for getting back so late. It works perfect. Thanks you again for your help!