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

[J.W. Aldridge]

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

 

[Jacob Skaria]

Range(Cells(activecell.Row,activecell.Column),
Cells(activecell.Row+10,activecell.Column+6)).select

If this post helps click Yes

 

[Jacob Skaria]

Range(Cells(activecell.Row,activecell.Column),
Cells(activecell.Row+10,activecell.Column+6)).select

 

[J.W. Aldridge]

Mr. Jacob, that didn't work...

 

[Rick Rothstein]

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.

 

[J.W. Aldridge]

thanx...

wanted to select the entire range, so the first one worked.

 

[Jacob Skaria]

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

 

[Rick Rothstein]

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

 

[Jacob Skaria]

Thanks Rick..

If this post helps click Yes