Ejecutar una macro en varios archivos

Hola NSANCHEZ,

Prueba ejecutar el macro de abajo (Sub Test()) desde cualquier modulo
abierto, previamente cambiando la ruta y/o lo que haga falta.

Saludos,
KL

'--inicio codigo--
Sub test()
Dim txt As String, Archivo As String, Nombre As String
Dim ext As String, i As Long, Ruta As String
Ruta = "C:\Temp\"
Nombre = "SUCU"
ext = ".xls"
Application.ScreenUpdating = False
For i = 1 To 40
Archivo = Nombre & Format(i, "00") & ext
If FileExists(Ruta & Archivo) Then
If WorkbookIsOpen(Archivo) Then
Workbooks(Archivo).Activate
Else
Workbooks.Open Archivo, False
End If
With ActiveWorkbook
txt = txt & .Name & Chr(13)
.Close 'False
End with
End If
Next i
Application.ScreenUpdating = True
MsgBox txt
End Sub

Private Function FileExists(fname) As Boolean
' By John Walkenbach
Dim x As String
x = Dir(fname)
If x <> "" Then FileExists = True _
Else FileExists = False
End Function

Private Function WorkbookIsOpen(wbname) As Boolean
' By John Walkenbach
Dim x As Workbook
On Error Resume Next
Set x = Workbooks(wbname)
If Err = 0 Then WorkbookIsOpen = True _
Else WorkbookIsOpen = False
End Function
'--fin codigo--