Need Sample VBA Code

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".

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" <[email protected]> wrote in
message news:[email protected]...
> 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".

apply the following code to every cell you need to

Range("a3").Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

or if the conditional formatting will always be the same

lookup formatcondition, in the help index to program the format conditions
directly
(xl2003)




"Bill Sturdevant" wrote:

> 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".

On Wed, 26 Jan 2005 11:23:07 -0800, Bill Sturdevant
<[email protected]> wrote:

>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".

Try this

Range("A3").Select
Selection.Copy
Range("A6:A500").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Hope this works as expected.

Lars-Åke