Select a folder, loop all workbooks & move a particular sheet

[Mr.Karr]

Hello

Can anyone please provide VBA code snippet for below;

In brief: I have an activity where I have workbooks saved in a folder. Macro has to loop through all workbook and move a particular worksheet named "Data" from that folder.

Any help would be greatly appreciated.

Thanks,
Karthik

 

[Luke M]

Where should it move the sheet to??

I'd recommend starting here:
http://www.rondebruin.nl/win/section3.htm

Ron has several wonderful built templates, which solve these probems 99% of the time. I especially like the add-in he has, which lets you specify sheet/range location.
http://www.rondebruin.nl/win/addins/rdbmerge.htm

 

[Mr.Karr]

@Luke M : those sheets to the source workbook.
sorry, I did had a look with the link you've provided but the page you've recommended doesn't have a solution to this.
Please advise

 

[Mr.Karr]

@Luke M : I have managed to utilize available content and require your help to modify that a bit.

Can you pls modify the below code to only copy sheet named "Data" from available workbooks please ? Thanks!

 If Not mybook Is Nothing Then
            For Each sh In mybook.Worksheets
                sh.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
            Next sh

 

[Luke M]

Change that block of code to:

 If Not mybook Is Nothing Then
        Set sh = mybook.Worksheets("Data")
        sh.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

 

[Mr.Karr]

thanks @Luke M