set rng=

[Guest]

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?

 

[Guest]

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

 

[Guest]

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