Sorry, I accidentally copied the single quotes along with the sheet name - it should be something
like

TableDestination:=Worksheets("SheetRef").Range("G1 ")

HTH,
Bernie
MS Excel MVP


"Hru48" wrote in message
...

Thanks, but I get the error ' Subscript out of range'. any ideas?


--
Hru48
------------------------------------------------------------------------
Hru48's Profile: http://www.excelforum.com/member.php...o&userid=24895
View this thread: http://www.excelforum.com/showthread...hreadid=558821