Sub samecolor()
'Sheets("PowerAnalysis").Cells(3, 8).Interior.ColorIndex = Sheets(1).Cells(10, 8).Interior.ColorIndex
Sheets("PowerAnalysis").Cells(24, 11).Interior.ColorIndex = Sheets("Report").Cells(1, 5).Interior.ColorIndex
End Sub
[code]
It didn't work. Do you or anyone else have any ideas?
Thanks,
Kurt
Sub samecolor2()
Sheets("PowerAnalysis").Cells(11, 24).FormatConditions.Item(1).Interior.ColorIndex = Sheets("Report").Cells(1, 5).Interior.ColorIndex
End Sub