set col = Sheet2.Range("A1:Z1")
for each c in col.Cells
...
set arie
Sheet2.Range(Cells(1,c.Offset(0,0).Column()),Cells (100,c.Offset(0,0).Column()))
(doesn't work)
...
nex

--
stefante
-----------------------------------------------------------------------
stefantem's Profile: http://www.excelforum.com/member.php...fo&userid=1359
View this thread: http://www.excelforum.com/showthread.php?threadid=27037

Set col = Sheet2.Range("A1:Z1")
For Each c In col.Cells

Set arie = _
Sheet2.Range(Sheet2.Cells(1, c.Column), Sheet2.Cells(100, c.Column))


--

HTH

RP

"stefantem" wrote in message
...

set col = Sheet2.Range("A1:Z1")
for each c in col.Cells
..
set arie =

Sheet2.Range(Cells(1,c.Offset(0,0).Column()),Cells (100,c.Offset(0,0).Column(
)))
(doesn't work)
..
next


--
stefantem
------------------------------------------------------------------------
stefantem's Profile:
http://www.excelforum.com/member.php...o&userid=13594
View this thread: http://www.excelforum.com/showthread...hreadid=270373