You can use the DIR() method to cycle through all the workbooks in a single folder and do the same copy/pastetoanotherwb process. An example of that is here:
You can use the FSO method to cycle through all the folders in a main folder, an example of that can be found here:
You can use this snippet of code to automate the process of picking the MAIN folder to start from:
Dim fPathMain as String
'Folder selection
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then fPathMain = .SelectedItems(1) & "\"
End With
Bookmarks