Excel - Juntar varios libros en uno

Hola a todos.

Me gustaria que alguien me comentara como hacer, que las hojas de varios libros los pudiera juntar en uno solo. Ya que cada libro tiene un nombre y las hojas de cada uno de estos tienen los mismos nombres en las hojas.

No se si lo que estoy proponiendo se puede hacer.

Un saludo Yoly.

Sub Une()
Dim nombre, libro, nombre_final, libro_final As String
'Objeto Excel
Set XL = CreateObject("Excel.Application")
XL.Visible = True
para = 0
i = 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 + i, 1)
libro = Cells(3, 1) & "\" & nombre

If nombre <> "" Then
XL.Workbooks.Open libro
If i = 0 Then XL.ActiveWorkbook.SaveAs libro_final, -4143
If i <> 0 Then
XL.Workbooks.Open libro
XL.Workbooks(nombre).Sheets(1).Copy , XL.Workbooks(nombre_final).Sheets(i)
XL.Workbooks(nombre).Close
End If
i = i + 1
End If
If nombre = "" Then
para = 1
XL.Workbooks(nombre_final).Close True
End If
Wend

XL.Quit
End Sub