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