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