Error 1004 en código Range("A1").Select

No entiendo lo que pasa.
Hago una macro que funciona, en la que un valor una celda de la hoja 1
se copia en la hoja 2. El código es:

Sub Macro1()

Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

El problema viene cuando este código lo copio en un botón:

Private Sub CommandButton1_Click()

Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

Entonces me sale un error parándose en
Range("A1").Select.
Y aparece este mensaje:
Error 1004 en tiempo de ejecución. Error en el método Select de la
clase Range

Yo juraría que esto lo he hecho otras veces y me ha funcionado.
¿Dónde puede estar el error?