Còmo aplicar una macro para abrir 30 archivos y extraer informaciòn?

Dante,

Tengo una macro que abre un archivo y dependiendo de condiciones copia informaciòn y la pega en donde tengo la Macro.

Esta Macro solo funciona para abrir un archivo pero quiero que despuès de abrir el primero haga lo mismo con el segundo, etc.

Te paso la macro:

Workbooks.Open Filename:= _
"\\C:\Users\Jorge\Desktop\Pedidos Diarios\PedTda1.xls"
reng = Range("A1").End(xlDown).Row
rengl = reng + 2
renglo = reng + 3
On Error Resume Next
If Range("A" & rengl & "") = "" Then
Range("A8").Select
Range("A8", "O" & reng & "").Copy
Windows("Consolidado de pedidos.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows("PedTda1.xls").Activate
Workbook.Application.CutCopyMode = False
ActiveWorkbook.Close
Windows("Consolidado de pedidos").Activate
ActiveWorkbook.Save
Workbook.Application.CutCopyMode = False
End If
Application.CutCopyMode = False
If Range("A" & rengl & "") <> "" Then
Range("A" & rengl & "").Select
Jorges = Range(Selection, Selection.End(xlDown)).Rows.Count - 1
renglon = rengl + 1
renglone = renglon + Jorges - 1
Range("A" & renglon & "", "O" & renglone & "").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Consolidado de pedidos.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("PedTda1.xls").Activate
ActiveWorkbook. Save
ActiveWorkbook.Close
Windows("Consolidado de pedidos").Activate
Application.CutCopyMode = False
ActiveWorkbook.Save
End If