I have found the solution....
Sheets("WeekData").Range(Sheets("WeekData").Cells( 500, 20),
Sheets("WeekData").Cells(540, 32)).Copy Destination:=ActiveCell
--
micmacuk
------------------------------------------------------------------------
micmacuk's Profile:
http://www.excelforum.com/member.php...o&userid=33253
View this thread:
http://www.excelforum.com/showthread...hreadid=533999