Excel - Unir hojas

Saludos,

Mi problema es el siguiente. Tengo varios documentos de excel 2003 con una hoja en cada uno de ellos. Lo que quiero conseguir es tener un único fichero con todas las hojas, una por cada documento inicial. ¿se puede hacer? ¿Cómo?

Gracias de antemano!

Michael

Abre un libro nuevo y uno de los que ya tienes, en el libro que ya tenías sitúate en la etiquita de la hoja, selecciona con el boton derecho del ratón, mover o copiar, se te despliega un cuadro de diálogo en el que te permite seleccionar en qué libro quieres copiar la hoja actual (puedes seleccionar crear copia para conservar los archivos antiguos).

Y sigue así, manteniendo siempre el libro nuevo, ve abriendo los viejos, copiando la hoja y cerrando.

Sub Concentrar_Hojas()
Application.ScreenUpdating = False
Dim Sig As Byte, Eliminar As Boolean
If MsgBox("Deseas eliminar las hojas ""concentradas"" al final del proceso?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Favor de confirmar...") = vbYes _
Then Eliminar = True
For Sig = 2 To Worksheets.Count
Worksheets(Sig).UsedRange.Copy _
Worksheets(1).Range("a65536").End(xlUp).Offset(1)
Next
If Not Eliminar Then Exit Sub
Application.DisplayAlerts = False
For Sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True
End Sub