Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Interior.Color <> 16777215 Then
Range("a10").Interior.Color = xlNone
If Target.Value <> "" Then Range("a10").Interior.Color = Range("a1").Interior.Color
End If
End Sub