LIBRO RESUMEN

Hola grupo:
No consigo rematar una macro que me haga lo siguiente:
Tenemos...
En una carpeta, + o - 300 libros Excel, idénticos en estructura con datos
solo en la Hoja1 rango C2:W2
Por otra parte un libro llamado RESUMEN.XLS , que en la Hoja1 columna B a
partir de la fila 3 inclusive "recoge", mediante una macro ya hecha, la
ruta completa y nombre de cada uno de los + - 300 ficheros.
En la celda X1 de la Hoja1 del libro RESUMEN tengo la cantidad exacta de
ficheros.( Cantidad de Ficheros= cf [en adelante])


Querría que el rango C2:W2 de la Hoja1 de cada uno de los +- 300 ficheros
se copiara en las filas 3 y siguientes de la Hoja1 en
Cn:Wn del libro RESUMEN.
Es decir necesito una Macro que mediante un bucle ( de 3 a cf )
- recorra el rango B3:Bcf [de la Hoja1 libro RESUMEN]
- vaya abriendo cada fichero cuya ruta y nombre está en la celda recorrida
- lea el rango C2:W2 del libro abierto
- lo copie en el rango Cn:Wn de la Hoja1 del libro RESUMEN
- cierre el libro "leido", y abra el siguiente... hasta cf.

El nombre de los ficheros, está en la columna A3:Acf de la misma Hoja1 del
libro RESUMEN.
La Macro se ejecutaría desde un botón de la Hoja1 del libro RESUMEN.

Lo mismo se os ocurre otra forma de plantear la Macro, yo sigo
intentándolo con mi método, de momento infructuosamente.

Gracias anticipadas por leeros el "tocho" = "ladrillo" .

Juan Español.-

El codigo

Sub Prueba()

Dim Libro As Workbook
Dim i As Long
Dim HojaResumen As Worksheet

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

i = 2

Set HojaResumen = ActiveSheet
Do While HojaResumen.Range("B" & i) <> ""

Set Libro = Workbooks.Open(HojaResumen.Range("B" & i), _
ReadOnly:=True)

Application.StatusBar = HojaResumen.Range("B" & i)

Libro.Worksheets(1).Range("C2:W2").Copy _
Destination:=HojaResumen.Range("C" & i)

Libro.Close savechanges:=False
i = i + 1
Loop

With Application
.ScreenUpdating = True
.EnableEvents = True
.StatusBar = False
End With
End Sub