selecting mulitple cells

[Dummy Excel]

Morning All,
I need some code that will select 4 cells, while the columns will be the same, the number of the rows will vary.

the code that I have isnt working like i want it to:

rnum = Selection.Rows.Count
Range(Cells(rnum + 1, 4), Cells(rnum + 1, 7)).Activate

Any help is greatly appreciated
thanks
Samuel

 

[jc113883]

You don't really say what you are after... please be more specific.

I'm guessing you may be after something like:

rnum = Activecell.row 
Range(Cells(rnum, 4), Cells(rnum, 7)).select

or

rnum = Selection.Rows.Count 
Range(Cells(activecell.row, 4), Cells(activecell.row + rnum, 7)).select

Let us know if either are what you were after.

 

[Dummy Excel]

Sorry for the confussion - I promise to be more specific next time as this forum has help me out alot

I actually added another line to get exactly what I want

Range("d8").End(xlDown).Select
rnum = ActiveCell.Row
Range(Cells(rnum, 4), Cells(rnum, 7)).Select

really appreaciate your time & help
Samuel

 

[Scott Huish]

That can be done in 1 line:

Range("D8").End(xlDown).Resize(, 4).Select

however depending on what you are trying to do, it may not be necessary to Select at all. You can work with ranges directly in VBA.