Set srceRng = Range("A8:z157")
srceRng.Select
srceRng.Copy

Now I need to select only the visible rows to copy and eliminate th
hard coding. This skill has been escaping me too.

Thanks

Cria

--
Craig
-----------------------------------------------------------------------
Craigm's Profile: http://www.excelforum.com/member.php...fo&userid=2438
View this thread: http://www.excelforum.com/showthread.php?threadid=38748