View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
bhofsetz[_42_] bhofsetz[_42_] is offline
external usenet poster
 
Posts: 1
Default Save from a template to XLS only visible sheets


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