I've been trying to figure out how to do this, but haven't beensuccessful.
Can someone give me an idea on how to approach this. I'd like to refer to
the cell with the CF's as r (formatted as a range) and the cell without the
format as r1 (again, formatted as a range)

Thanks,

Barb Reinhardt

Hope this helps

Range("F18").Select ' cell with conditional formatting
Selection.Copy ' copy the formatting
Range("I14").Select ' target cell to copy the formats on to
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False ' pastespecial the formats
Application.CutCopyMode = False

"Barb Reinhardt" wrote:

I've been trying to figure out how to do this, but haven't beensuccessful.
Can someone give me an idea on how to approach this. I'd like to refer to
the cell with the CF's as r (formatted as a range) and the cell without the
format as r1 (again, formatted as a range)

Thanks,

Barb Reinhardt