Excel - Una tonteria para ustedes!

Buenas tardes:
Vuelvo a molestar con una consulta, calculo que debe ser una estupidez la respuesta pero la verdad es que yo no la conosco.
Alguien me puede explicar por que una macro como la que escribo a continuacion, al ejecutarla por primera vez funciona de maravilla y si la quiero volver a ejecutar me trae un error.

Sub copia()
[A1].Select
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Unprotect Password:="aaa"
[A1].Select
Selection.PasteSpecial (xlValues)
ActiveSheet.Protect Password:="aaa"
Sheets("Hoja1").Select
End Sub

Entiendo que debe ser un problema en el bloqueo de la hoja2, pero la verdad no se como salvar esto.

desde ya muchas gracias!

¿Has probado a seleccionar una celda de Hoja1 cuando vuelves?

Acabo de probar y sigue sin funcionar.
Se que el problema esta en Activesheet. Protect y Activesheet. Unprotect porque la primera vez que utilizo la macro da error, y al depurarlo la hoja2 queda sin proteccion.
Pero si lo ejecuto una vez mas, vuelve el error!

hice algunos cambios... y hay otras maneras de hacerlo...



Saludos, desde Baires, JuanC