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

[@rogerst-onge7275]

Your saving me lots of time. Thanks you :)

[@vasily2022]

Thank you for this great video.

[@LongTimeTTFan]

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

[@gajaendran526]

LongTimeTTFa

[@MohAboAbdo]

Thanks ... Thanks ... Thanks ...

[@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.

[@bhimthakur4355]

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

[@aadi5569]

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

[@DaBuzz92]

Love your Voice....

[@CHRIS1SYD2]

What a weird comment.

[@kailee6823]

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 :)

[@dagi_magna6446]

You can do WorkbookName("Worksheetname").Select then copy

[@kldrhmn8324]

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 after:=finalReportWorkbook.Sheets(finalReportWorkbook.Sheets.Count) 9. Next 10. End Sub can you possibly figure out what error keeps blocking me ?

[@sudeepjainshastri7197]

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.

[@mohamedhaddad2777]

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

[@Tat-cx1lr]

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

[@shahidnaik524]

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

[@stefvandeweyer4798]

I do exactly and I got an error 9 :(

[@aikpengng7690]

if you see extension in your excel window, then the extension ".xlsx" or something is required as part of the filename in the "Set" command.