Подытожу:
Получается, что функция, содержащая любую операцию не связанную с её вычислением, перестаёт работать и, как пишет Hugo, такую функцию написать невозможно.

Всем спасибо.

Пожалуйста:
В ячейке А1 написано 15. Если макросом поменять цвет ячейки вот так: Range("A1" .Interior.ColorIndex =15, то она станет серого цвета.
Задача: написать функцию, которая это будет делать без ошибок. То есть выполнять основную задачу функции -распространяться только на то количество ячеек, в которые она задана.

Условное форматирование не подходит, так как для каждого индекса цвета пришлось бы писать правило.

А правило не подскажете?  

Файл в приложении.

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

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

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

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

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