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