Sub ABCD()
Range("A3").Copy
Range("A6:A500").PasteSpecial xlPasteFormats

End Sub

Copies all the formatting from Cell A3 including the Conditional formatting.

--
Regards,
Tom Ogilvy


"Bill Sturdevant" wrote in
message ...
I have a cell (A3) with conditional formatting.

Via VBA code, I want to be able to say "Make the conditional formatting
for
cells A6 through A500 the same as the conditional formatting for cell A3".