Excel - Copiar con macro

Tengo dos archivos abiertos: Libro1 y Libro2. En Libro1, en la celda A1 escribo un nombre y tengo un Boton de Comandos. Necesito que El Boton de Comandos del Libro1 cuando lo ejecute, copie al Libro2 el contenido de la celda A1 del Libro1.

Workbooks("libro2.xlsx").Sheets("Hoja1").Range("A1") = Workbooks("libro1.xlsm").Sheets("Hoja1").Range("A1")

Saludos, desde Baires, JuanC