I want to change color of text in one cell based on the color of text in another cell

Question

I want a VBA program to change the color of text in one cell based on the color of text in another cell. For example:

If the color of text in cell A1 is blue. I want the color of text in cell B1 to be blue.

A formula or VBA program would help as I would need to do the same for a large number of cell.

Answer 1

Use Font.Color property of specified cells.

Range("B1").Font.Color = Range("A1").Font.Color

Also you can use any variable for reusing.

Dim ColorTemplate As Long = Range("A1").Font.Color
Range("B1").Font.Color = ColorTemplate
Range("C1").Font.Color = ColorTemplate
...