Cell as range

[Grace]

I am having trouble with all the help I'm getting about expanding a range
and I think it has to do with the fact that, when I have selected a single
cell, I am assuming that such is a range that can be expanded. Probably, it
is not. So, kindly tell me how to expand from a cell location that I have
selected to a "range", say by adding five more columns to the right. At
that point, I assume, I will have a range and, from there, I think I can
figure the rest out myself.

Thanks,
Grace

 

[Frank Kabel]

Hi Grace
also a single cell is an Range. try something like the following
sub foo()
dim rng as range
set rng = activesheet.range("B1")
rng.resize(1,6)
rng.value="myrange"
end sub

 

[Tom Ogilvy]

ActiveCell.Resize(1,5) will be 5 cells in 1 row

ActiveCell.Resize(1,6) will be 6 cells in 1 rows (the original cell and 5
additional cells to the right.


If you will have data below that cell that you want to select

Range(ActiveCell,ActiveCell.End(xldown)).Resize(,6).Printout

change the 6 to a 5 if you want a total of 5 columns.

 

[Grace]

Thanks Tom and Frank!
Grace

ActiveCell.Resize(1,5) will be 5 cells in 1 row

ActiveCell.Resize(1,6) will be 6 cells in 1 rows (the original cell and 5
additional cells to the right.


If you will have data below that cell that you want to select

Range(ActiveCell,ActiveCell.End(xldown)).Resize(,6).Printout

change the 6 to a 5 if you want a total of 5 columns.

--
Regards,
Tom Ogilvy

Probably,