Macro en excel para abrir varios ficheros

Ahí va, ten cuidado pues si hay libros muy pesados se puede bloquear el equipo.
Otra cosa, si hay libros vinculados va a preguntar pero me parece mejor por seguridad.
Sub LasCarpetas()
'Macro Grabada el 14/09/2004 por Cesar Mera
'Busca en una Carpeta del sistema y sus subcarpetas todos los archivos de Excel y los abre
Dim NombreCarpeta As String
NombreCarpeta = "C:Documents and SettingsMis documentosPENDIENTES" 'Colocar la carpeta inicial
Call ShowFolderList(NombreCarpeta)
End Sub
Sub ShowFolderList(LaCarpeta As String)
Dim NombreSubCarpeta As String
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set Folder = FileSys.GetFolder(LaCarpeta) ' Asigna la carpeta a la variable Folder
Set ListaCarpetas = Folder.Subfolders ' Asigna la lista de Subcarpetas a la variable ListaCarpetas
Set ListadoArchivos = Folder.Files ' Asigna la lista de Archivos a la variable ListadoArchivos
For Each Archivo In ListadoArchivos
If InStr(1, Archivo.Name, ".xls", vbTextCompare) Then
Workbooks.Open (Folder & "/" & Archivo.Name)
End If
Next Archivo
For Each Subcarpeta In ListaCarpetas
NombreSubCarpeta = Folder.Path & "" & Subcarpeta.Name
Call ShowFolderList(NombreSubCarpeta) 'Procedimiento recursivo, se llama a si mismo para hacer
Next Subcarpeta 'la verificación en las subcarpetas
End Sub
La única modificación que debes hacer es colocar en la variable "NombreCarpeta" la ruta exacta que contiene los archivos y las subcarpetas con los archivos que deseas abrir.
Si no entiendes algo por favor me avisas para explicarte de lo contrario favor valorar la respuesta de acuerdo a su calidad, utilidad y oportunidad.
Cordialmente,
cmera