VBA - copy sheet from another workbook to current workbook

[macroos]

Hi,

I am trying to create a macro that can copy a sheet from another workbook to the workbook that I'm currently using.

I have both workbooks in the same folder.
Copy Workbook1.xlsx sheet named "Schedule" onto test.xlsm

Is there something wrong with the code that I'm using below:

Sub MoveSheets()
    Windows("Workbook1.xlsx").Activate
    Sheets("Schedule").Select
    Sheets("Schedule").Copy Before:=Workbooks("test.xlsm").Sheets(1)
End Sub

And if I want to be copying sheets from several different workbooks (Workbook2, Workbook3, and etc), do I just keep adding the same three lines and changing the file names?

 

[JLGWhiz]

shorter version

Sub MoveSheets()
    Workbooks("Workbook1.xlsx").Sheets("Schedule").Copy Before:=Workbooks("test.xlsm").Sheets(1)
End Sub

Both workooks need to be open.

 

[macroos]

Thank you.

Is there a way to make the Workbook1 automatically open and after it finishes copying, it will automatically close?

 

[macroos]

Never mind.

I used:

Workbooks.Open Filename:="....Workbooks1.xlsx"
Workbooks("Workbooks1.xlsx").Sheets("Schedule").Copy Before:=Workbooks("test.xlsm").Sheets(1)
Workbooks("Workbooks1.xlsx").Close savechanges:=False

 

[JLGWhiz]

Never mind.

I used:

Workbooks.Open Filename:="....Workbooks1.xlsx"
Workbooks("Workbooks1.xlsx").Sheets("Schedule").Copy Before:=Workbooks("test.xlsm").Sheets(1)
Workbooks("Workbooks1.xlsx").Close savechanges:=False

The KISS method Keep It Short & Simple.