Anon, si la quieres en inglés con sub español y por mega, te paso los links, sino esperemos a que Sempus la encuentre, pero a lo sumo la he visto en español español, no latino 
Saludos

Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúworkbooks.add
'workbooks(index).SaveAs(nombre_ruta)
workbooks(2).saveas("C:\Archivo.xls")
'Seleccionas rango
Selection.copy
'Seleccionas destino
ActiveSheet.Paste
Sheets(hoja).Copy After:=Workbooks(nombre_otro_libro).Sheets(index)
'Se selecciona y copia la hoja, en otro libro luego de ...