Fill Effect Macro

[trevor2524]

Does anybody know how to create the fill effect on Column B starting at cell 2 and going until there are no more values left in Column A in a macro.

[stnkynts]

Did you want column B, column A, or both? This is set up for column A and the color Red.

Sub Fill_Column_A()

Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = 3

End Sub

[trevor2524]

Sorry I should of explained it better. It will be for column B. And i'm trying to autofill a formula that starts in B2 and will need to go until there are no more values left in Column A.

[JOHN H. DAVIS]

A slight modification too stnkynts' code.

Sub trevor2524()
Range("B2:B" & Range("A" & Rows.count).End(3)(1).Row).Interior.ColorIndex = 3
End Sub

[HaHoBe]

Hi, trevor2524,

maybe

Sub EF961982()
Range("B2").AutoFill Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

Ciao,
Holger

[trevor2524]

Hi, trevor2524,

maybe

Sub EF961982()
Range("B2").AutoFill Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

Ciao,
Holger

Thank you that works.