Окрасить ячейку в цвет аналогичный другой ячейке

[FoxRiver]

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

Например ячейка A1 окрашена в зеленый цвет (Interior.ColorIndex = 43)
в B1 вписываем формулу =СуммЦвет(А1) и ячейка должна окраситься в зеленый цвет.

Function СумЦвет(диапазон As Range) As Double
' Определяет сумму значений в ячейках "диапазона",
' цвет которых совпадает с цветом в ячейке "критерий"

Application.Volatile True
Dim i As Range
   For Each i In диапазон
        If i.Interior.ColorIndex = 43 Then
           current.cell = СумЦвет + i.Value
        End If
    Next
End Function

[EducatedFool]

Не получится так сделать
Формула (пользовательская функция) не может изменить формат ячейки, - она только вычисляет значение.
Нужен дополнительный макрос.

[Dima_com]

А почему нельзя просто присваивать такой же цвет следующей ячейке?

Dim temp = Range(B1).ColorIndex
        Range(A1).ColorIndex = temp

[Hugo121]

Процедурой - можно.

[The_Prist]

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