Bucle para abrir Archivos

Buenos dias colaboradores, me gustaria que me orientaran para poder ejecutar esta macro, sin la necesidad de crear

un nuevo libro y que ejecute un modulo despues de abrir el libro:

Sub Crea()Dim nombre, libro, nombre_final, libro_final As String



Set XL = CreateObject("Excel.Application")

XL.Visible = True

para = 0

a = 0



'Creamos el libro resultante

nombre_final = Cells(3, 3) & "." & Cells(2, 3)

libro_final = Cells(1, 3) & "\" & nombre_final



While (para = 0)

nombre = Cells(5 + a, 1)

libro = Cells(1, 3) & "\" & nombre


If nombre <> "" Then

    XL.Workbooks.Open libro

    If a = 0 Then XL.ActiveWorkbook.SaveAs libro_final, -4143

    If a <> 0 Then

        XL.Workbooks.Open libro


        unir


        XL.Workbooks(nombre).Close

    End If

   a = a + 1

End If

If nombre = "" Then

    para = 1

    XL.Workbooks(nombre_final).Close True

End If

Wend



XL.Quit

End Sub[/CODE]