i have this rng:
lngMaxRow = Range("A65536").End(xlUp).Row
Set rng = Union(Range("A3:K" & lngMaxRow), Range("N3:AC"
lngMaxRow)).SpecialCells(xlCellTypeVisible)
i would want to copy the first block a3:k of current sheet into a3:k o
ActiveWorkbook.Sheets(1)
i would want to copy the second block n3:ac of current sheet into n3:a
of ActiveWorkbook.Sheets(1)
i have used this but not work!!!!!!!!:
rng.Copy ActiveWorkbook.Sheets(1).Range("A3")
_________________
--
sal2
-----------------------------------------------------------------------
sal21's Profile:
http://www.excelforum.com/member.php...nfo&userid=204
View this thread:
http://www.excelforum.com/showthread.php?threadid=49163