This is the best I can offer...color changes in a cell don't actually trigger a ws_change event...I have no idea why, a lacking in Excel I suppose. So, this will trigger the color match when you move to another cell.
Put this macro into the SHEET MODULE for Sheet1 and it will work automatically:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C9,C11,C13,C15,C17,C19,C21,E9,E11,E13,E15,E17,E19,E21") _
.Interior.ColorIndex = Range("D6").Interior.ColorIndex
End Sub
Bookmarks