Copying Worksheets, Nearly got it?

[hatstand]

I am trying to modify the code below. So I can copy more than one named sheet: (Thatnks to who ever wrote it). Am I missing the obvious?

Sub SheetToO()

Dim CopyFromWbk As Workbook
Dim CopyToWbk As Workbook
Dim ShToCopy As Worksheet

Set CopyFromWbk = Workbooks("File that has the sheets.xls")
Set ShToCopy = CopyFromWbk.Worksheet("Sheet1")
Set CopyToWbk = Workbooks("File that recieves the sheets.xls")

ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count)
End Sub

 

[Trevor G]

What about recording the macro to copy the sheets it will give code that you can adapt.

Here is one version

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

 

[hatstand]

Thanks for the pointer. I think I thougt it was more complicated than it actually was.