Вставить свойство, определяющее цвет фона в инструкции ActiveCell._________.ColorIndex = 5
ActiveCell.Font.ColorIndex = 5