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.

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!

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