Ok, aquí tienes, prueba esto:
Sub MultiSelector()
Dim VentanaElegir As FileDialog
Dim newBookName As String: newBookName = ThisWorkbook.Path & "\Archivos Excel\Aninado.xlsx"
Dim newBook As Workbook
Set VentanaElegir = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With VentanaElegir
.Title = "Seleccione los archivos Excel"
.Filters.Add "Archivos Excel", "*.xls; *.xlsx; *.xlsm", 1
.InitialFileName = ThisWorkbook.Path & "\Archivos Excel\"
.AllowMultiSelect = True
If .Show = -1 Then
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.DisplayStatusBar = False
.Calculation = xlCalculationManual
End With
Set newBook = Workbooks.Add
For Each vrtSelectedItem In .SelectedItems
Call CrearAnidado(vrtSelectedItem, newBook)
Next
newBook.Sheets(1).Delete
newBook.SaveAs newBookName, FileFormat:=51
newBook.Close
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.DisplayStatusBar = True
.Calculation = xlCalculationAutomatic
End With
Else
'Aquí no va nada, dejalo así, esto determina si se dio
'click en cancelar y no se selecciono ningún archivo
'osea si se interrumpió el proceso que no suceda nada
End If
End With
Set VentanaElegir = Nothing
End Sub
Sub CrearAnidado(fPath As Variant, LibroAnidado As Workbook)
Dim shts As Worksheet
Dim LibroOrigen As Workbook
Set LibroOrigen = Workbooks.Open(fPath)
For Each shts In LibroOrigen.Worksheets
shts.Copy After:=LibroAnidado.Worksheets(LibroAnidado.Sheets.Count)
Next shts
LibroOrigen.Close SaveChanges:=True
End Sub
Son dos macros, solo se ejecuta una, la que se llama "MultiSelector" la otra macro es llamada por esa automáticamente, es la que se encarga de hacer el movimiento de las hojas al nuevo libro.
Como no conozco la estructura de tus carpetas, hice la mía así:
El libro de la macro esta en una carpeta cualquiera (no importa el nombre) pero junto con el hay otra carpeta que se llama "Archivos Excel" y dentro de ella están los archivos de donde se van a copiar las hojas.
Te dejo un video de como funciona: Video demo
Andy