[VBA] changing cell color based on another cell color

Hi,

seems like there's an simple wa by VBA with following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("D1").Interior.Color = Me.Range("B1").Interior.Color
End Sub

So, I might consider this as solved.