Фильтр по цвету ячейки в Экселе - VB

Формулировка задачи:

надо профильтровать ячейки (строки) одного цвета.
как это сделать кодом?

Решение задачи: «Фильтр по цвету ячейки в Экселе»

textual
                            Листинг программы 
                        

                            <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>1000</b></font>    <font color="00AA00">'начало цикла</font>
<font color="blue">If</font> Rows(i & <font color="teal">":"</font> & i).Interior.ColorIndex = <font color="darkblue"><b>6</b></font> <font color="blue">Then</font> Rows(i & <font color="teal">":"</font> & i).Hidden = True <font color="00AA00">' 6- желтый цвет</font>
<font color="blue">Next</font> i
                        