Как сделать, чтобы при изменении цвета ячейки в листе 1 менялся цвет у ячейки в Книге?

Немного непонятен вопорс, но попробую ответить. Можно использовать такое событие листа, как SelectionChange, а так же Activate. Например, при Activate запомнили цвет выбранной ячейки, а при bpvtytybb выделеня ( переходе в другую ячейку) , то есть при событии SeletionChange проверили заливку снова. Если они не совпадают, то закрасили вторую ячейку. Как то так.

Dim i As Integer

Private Sub Worksheet_Activate()

i = Range("A1").Interior.ColorIndex

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1").Interior.ColorIndex <> i Then

Range("b2").Interior.ColorIndex = i

End If

End Sub