The following code copies the color value from cell “C11” to cell “C4”:
Range("C4").Interior.Color = Range("C11").Interior.Color
As long as you work with valid Range-Objects, you can use different types to address the cells as fits your needs. For example the active selection (at least one cell or more):
Selection.Interior.Color = Range("C11").Interior.Color
1
solved Matching color of a cell with another cell using VBA [closed]