ActiveCell Range

[redback]

How can I select the active cell and the 20 cells below it using VBA. Below is what I have been using but I want it to function from the active cell instead of A20. Thanks for any help, Jeff.

oSheet.Range("A20:A40").Value = iNumbers

 

[Haluk]

Hi;

One of the alternatives is;

Range(ActiveCell, Cells(ActiveCell.Row + 20, ActiveCell.Column)).Select

 

[Richie(UK)]

Hi redback,

How about something like this:

<pre>Sub ActiveCellRange()
Dim MyRange As Range

Set MyRange = Range(ActiveCell, ActiveCell.Offset(20, 0))
MyRange.Select

End Sub</pre>
Doesn't do anything useful at the moment, just selects the range! Amend to suit.

HTH

 

[redback]

Thanks Guys it works great.