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