Как цвет ячейки Excel считать? - VB

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

требуется считать параметр цвета ячейки для последуюшего его анализа
!! желательно пример...;-)

Решение задачи: «Как цвет ячейки Excel считать?»

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

                            <font color="00AA00">'функция возвращает цвет ячейки</font>
<font color="00AA00">'вызов GetColor(cells(5,1)) или прям на листе задаём формулу <font color="teal">"=GetColor(RC[-1])"</font></font>
<font color="00AA00">'функцию разместить в модуле</font>
<font color="blue">Public</font> <font color="blue">Function</font> GetColor(nRange <font color="blue">As</font> Range) <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
    GetColor = nRange.Interior.ColorIndex
<font color="blue">End</font> <font color="blue">Function</font>
                        