Excel VBA - How to Copy Sheets to Another Workbook

Excel VBA Learn how to copy sheets to another workbook.

The code used in this video:

Sub CopySheets()

Dim weeklyReportWorkbook As Workbook
Dim finalReportWorkbook As Workbook

Set weeklyReportWorkbook = Workbooks("Weekly Report")
Set finalReportWorkbook = Workbooks("Final Report")

Dim weeklyReportSheet As Worksheet

For Each weeklyReportSheet In weeklyReportWorkbook.Sheets
weeklyReportSheet.Copy After:=finalReportWorkbook.Sheets(finalReportWorkbook.Sheets.Count)
Next

End Sub

[LongTimeTTFan]

Thank you for the detailed step by step demonstration and explanation.

[rogerst-onge]

Your saving me lots of time. Thanks you :)

[crazyairborne]

This is perfect, but what would I need to change in the code to make it put the inserted sheet before a specific sheet, rather than at the end.

[mohamedhaddad]

how to transfer a specific range? for example journal entry to a huge worksheet

[bhimthakur]

This is good, but my requirement is one close workbook to copy sheets to another specific workbook without using both workbook(coding has to be in separate workbook)kindly help on this

[kailee]

hi thanks for this tutorial i really need this one, but can you help to fix for example i want to copy selected sheet on source workbook and paste those selected sheet on my target workbook, how to set those kind of code? because this example is whole sheet how about selected sheet? thanks im looking forward to your help. thank you very much :)

[aadi]

What to do for single sheet with automatically name change based on cell value?

[sudeepjainshastri]

How to split worksheets from Drop down list like show report filter pagaes in pivot table but I want to do show report filter pager from dorpdown list not from pivet table.. I search a lot of but unfortunately can't find please guide me.

[kldrhmn]

Sorry I tried this code in VBA excel 2013 but it does not work and I have got an error in the line 5 here below the error says: "run time error 9" : script out of range



1. Sub copysheets()

2. Dim WeeklyReportWorkbook As Workbook
3. Dim finalReportWorkbook As Workbook
4. Dim weeklyReportsheet As Worksheet

5. Set WeeklyReportWorkbook = Workbooks("Weekly Report")
6. Set finalReportWorkbook = Workbooks("Final Report")
7. For Each weeklyReportsheet In WeeklyReportWorkbook.Sheets
8. weeklyReportsheet.Copy

9. Next

10. End Sub



can you possibly figure out what error keeps blocking me ?

[Tat-cxlr]

Bonjour
Merci pour ce partage.
Ma macro ne fonctionne pas au niveau de copy:=
Pourriez-vous m’aider svp
Fred

[shahidnaik]

Your Teaching skill is good but i am unable to understand how to use logic behind the codes. Please assist me with the same