i'm retrieving the cell color in a spreadsheet and assign it to a variable, then use the variable to color another cell.
color_1 = .Cells.Find(what:="mycell", LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByColumns).Interior.Color
.Cells(1, "A").Interior.Color = color_1
The code will...