Cell color transfer

[TheSparkmeister]

Hi folks,

I'm trying to = a cell fill color from one page in a workbook to another. I've tried to (=) the cell, but I don't get a color. Anybody know the right way to do it? Thank you very much for a reply!

 

[Taul]

copy the cell, paste special "paste formats"
you can access the spaste special with the mouse right click

 

[VoG]

You would need pastespecial or code for that. Something like

Sub copycolor()
ActiveSheet.Range("A1").Interior.ColorIndex = Sheets("home").Range("A1").Interior.ColorIndex
End Sub