From active cell, select the next 10 rows down, 6 columns over.

  • Thread starter Thread starter J.W. Aldridge
  • Start date Start date
Range(Cells(activecell.Row,activecell.Column),
Cells(activecell.Row+10,activecell.Column+6)).select

If this post helps click Yes
 
Range(Cells(activecell.Row,activecell.Column),
Cells(activecell.Row+10,activecell.Column+6)).select
 
It is not entirely clear from your question whether you want the
ActiveCell's row and column included in the new selection or not. If you
want them included...

ActiveCell.Resize(11, 7).Select

Note the 11 and 7 are your 10 and 6 plus one each. If you don't want them
included...

ActiveCell.Offset(1, 1).Resize(10, 6).Select

In any event... the Offset and Resize properties are the one's you will want
to play with.
 
Try this.....it was too long...

Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.Row + 10, ActiveCell.Column + 6)).Select


If this post helps click Yes
 
This is much easier to do using the Resize property of the Range object (the
ActiveCell in this case)...

ActiveCell.Resize(11, 7).Select

where the 11 and 7 are one more than the number of rows and columns to add
(the one being so that the 10 and 6 are in addition to the ActiveCell's row
and column).
 
Back
Top