MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Copying multiple spreadsheets to a new workbook


Posted by Drew Dannels on May 14, 2001 12:07 PM

Ok, I know, it sounds simple but what I want to do is do this in a macro. SO I need to copy the worksheets without going back to the original workbook. Does this make sense?


Posted by Dave Hawley on May 14, 2001 6:56 PM


Hi Drew

Shouldn't be a problem, try this.

Sub CopySheets()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
End Sub


If no destination is stated the default is for a new Workbook.

Dave


OzGrid Business Applications