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