Условное форматирование с более чем тремя условиями!

[VictorM]

В дополнение к Interior.ColorIndex (собственно заливка ячейки)
где это необходимо, добавьте Font.ColorIndex (цвет шрифта)

[pashulka]

Для изменения цвета шрифта/заливки можно также использовать и свойство Color об'екта Font/Interior, т.е.

Объект.Font.Color = vbWhite '16777215 'RGB(255, 255, 255)
Объект.Font.Color = vbRed '255 'RGB(255, 0, 0)