Copiar hoja de un libro a otro

[JosMa]

Hola, Teniendo dos libros abiertos, quiero copiar la hoja1 del primer libro al segundo. El problema surge cuando el nombre del primer libro va cambiando y me gustaría no tener que cambiar en la macro cada vez que lo utilizo y el nombre del primer libro es distinto.

Habría la posibilidad, teniendo dos únicos libros abiertos, poner en la instrucción que la hoja1 del primer libro activo la copie en el segundo libro activo.

 Workbooks("Libro1").Worksheets(1).Copy After:=Workbooks("Libro2").Sheets(2)

 

Saludos

[Antoni]

 Workbooks(1).Sheets(1).Copy After:=Workbooks(2).Sheets(2)

Vale para cualquiera que sean los libros.

[JosMa]

Gracias Antoni, poco a poco voy haciendo cosillas