Здравствуйте!

Подскажите, как написать функцию, которая будет менять цвет ячейки в зависимости от текста в другой ячейке. Например в исходной ячейке задан ColorIndex, и в конечной ячейке, куда задаётся функция, необходимо изменить цвет согласно ColorIndex и записать, к примеру, шестнадцатиричное значение этого индекса.

Function ColorPaste1(Cell As Range)
Application.Volatile
ActiveCell.Interior.ColorIndex = Cell.Text
ColorPaste1 = Hex(Cell.Text)
End Function

В итоге цвет ячейки меняется, функция возвращает ошибку. Не устраивает то, что при переносе функции в другие ячейки, она автоматически не срабатывает и не меняет цвет следующей ячейки.
Конечно можно решить всё макросом, но исходная таблица постоянно меняется как в размере, так и в значениях.

Заранее спасибо!