Добавить текст ячейки в зависимости от цвета ячейки - VBA

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

Здравствуйте. Я не могу разобраться в написании формулы или макроса. В определенном диапазоне ячеек требуется: в зависимости от цвета ячейки добавить текст с названием цвета в ячейку справа. Количество цветов ячеек ограниченно. То есть, если ячейка желтого цвета, то в ячейке справа должен появиться текст "желтый", если красного -"красный". Нужен код для VBA excel. HELP ME!!!

Решение задачи: «Добавить текст ячейки в зависимости от цвета ячейки»

textual
                            Листинг программы 
                        
                            Public Function examV1(DataRange As Range) As String
 
     If DataRange.Interior.Color = Range("D9").Interior.Color Then examV1 = "Г¦ГҐГ«ГІГ»Г©"
     If DataRange.Interior.Color = Range("D10").Interior.Color Then examV1 = "ГЄГ°Г*Г±Г*Г»Г©"
     
 End Function