vba to copy all sheets in the workbooks open by macro to active workbook

I am using the code below to open all excel files in a specific folder .

Please Login or Register  to view this content.

But how to copy all sheets tabs of the open workbook by macro to the active workbook(extract sheets1a workbook) , there are no blank worksheets in open workbook and then close the open workbooks by the same macro

What I am meaning :The macro open workbook BB, workwork cc, then it copies all the sheets to the current active workbook extractsheet 1a where the macro was activated and close all the workbook open by the macro that is workbook bb , workbook cc when finished copying the sheets to active workbook

There may be 5 to 6 workings to open in the specified directory .

Looking a vba code to achieve this

Hi Jean,

Reference the Microsoft Runtime Scripting Library to reference files and folders and loop from the active workbook copying sheets to the other https://www.excelcampus.com/vba/copy...ls-vba-macros/ & combined with https://youtu.be/zHJPliWS9FQ.

Hi Dal

Not exactly what I was looking for

So far googling I get that code .

But the code copy all active workbook sheets to a new workbook

Can someone assist to copy all active workbook sheets to active workbook where the macro will be triggered instead

When tested copies all open workbooks to a new workbook

Please Login or Register  to view this content.