Pick the fillcolor of a cell

[wmr]

Hello,

I do not only want to connect cell content, but fillcolor as well.

So, for content I use f.e. In cell A1 I enter: = A2

A2 is green. Now I want cell A1 green as well.

Is that possible?

kind regands
Willem

[jolivanes]

Something like this?
Fires when you enter your formula in a cell in Column A and hit the "Enter" button.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then ActiveCell.Offset(-1).Interior.Color = ActiveCell.Offset(-1, 1).Interior.Color
End Sub

[wmr]

Thanks, that works.

kind regards,
Willem