Vba.activar Libro

[DIANA_MM]

Hola...no se si es la mejor manera, pero al final lo he conseguido hacer con el siguiente código:

Sub copiarhoja()
milibro = ActiveWorkbook.Name
Hoja1.Select
Hoja1.Copy
Windows(milibro).Activate
End Sub

Saludos

Diana