Compilacion de varios archivos xlsx

[danyalix1987]

Hola muy buenas tardes acá en México, mi consulta es que tengo este código para copiar y pegar el contenido de un archivo, en uno nuevo:

Sub test()

'

' test Macro

'

'

    Selection.End(xlToLeft).Select

    Selection.End(xlDown).Select

    Range(Selection, Selection.End(xlUp)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range("B130").Select

    Range(Selection, Selection.End(xlUp)).Select

    Range("B9:w130").Select

    Range("B130").Activate

    Selection.Copy

    Windows("Consolidado 2012 ww21.xlsx").Activate

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Selection.End(xlToLeft).Select

    Selection.End(xlDown).Select

    Application.CutCopyMode = False

End Sub   [/CODE]

La pregunta es como puedo hacer esto pero con 70 archivos, es decir que abra el 1 ejecute esta macro, cierre el archivo, abra el archivo 2 y asi sucesivamente hasta el archivo 70. espero y me puedan ayudar.

[digitalboy]

Usa un bucle para iterar entre todo los archivos a procesar, te conviene tener los nombres de estos en una hoja e ir celda por celda, recuperando el nombre, abriendolo, compilandolo y cerrandolo!

[danyalix1987]

Jajajaja la verdad es que soy novato, pero aprendo rápido, como puedo realizar este bucle.