set rng=
 

hi guys
dim rng() as range
redim rng(1)
with active sheet
..cells(1,n).activate
for n= 1 to activesheet.rows.count
redim preserve rng(n)
rng(n) = .cells(1,n)
set rng(n)=activecell.entirecolumn
next n
will this work?
--
hemu

set rng=
 

dim rng() as range
redim rng(1 to activesheet.rows.count)
with active sheet
for n= 1 to activesheet.rows.count

set rng(n)=.Cells(n,1)

next n
End with

--
Regards,
Tom Ogilvy



"Hemant_india" wrote:

hi guys
dim rng() as range
redim rng(1)
with active sheet
.cells(1,n).activate
for n= 1 to activesheet.rows.count
redim preserve rng(n)
rng(n) = .cells(1,n)
set rng(n)=activecell.entirecolumn
next n
will this work?
--
hemu

set rng=
 

hi tom
is every element in an array a range object?
will i be able to use all ranges to manipulate the date containing these
ranges?
thanks
--
hemu


"Tom Ogilvy" wrote:

dim rng() as range
redim rng(1 to activesheet.rows.count)
with active sheet
for n= 1 to activesheet.rows.count

set rng(n)=.Cells(n,1)

next n
End with

--
Regards,
Tom Ogilvy



"Hemant_india" wrote:

hi guys
dim rng() as range
redim rng(1)
with active sheet
.cells(1,n).activate
for n= 1 to activesheet.rows.count
redim preserve rng(n)
rng(n) = .cells(1,n)
set rng(n)=activecell.entirecolumn
next n
will this work?
--
hemu