Add the ' .xls ' extension to the workbook name in the quotes.
Also make sure the destination workbook has three sheets
..sheets(3) or change that to .sheets(1)
sh.Copy After:=Workbooks("DestinationWorkbookName.xls").Sh eets(1)
sorry for the confusion
HTH
--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile:
http://www.excelforum.com/member.php...o&userid=18807
View this thread:
http://www.excelforum.com/showthread...hreadid=380140