Thread: Copy specific Sheets and save them as a workbook
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
  
Posts: 11,123
Default Copy specific Sheets and save them as a workbook
Use

Sheets(Array("Sheet1", "Sheet2")).Copy


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Rock*" wrote in message ...
Is there a method that will allow me to copy specific sheets (lets say sheet1
and sheet2) from my current workbook and save them as a seperate file. The
method below lets me copy only one sheet.

ThisWorkbook.Worksheets(1).Copy
ActiveWorkbook.SaveAs "New File"

Thank you.
Diana


Reply With QuoteReply With Quote