Copiar un valor en varias hojas a la vez

"Fabian" escribió en el mensaje news:

Hola a todos!
Sub JuntarHojas( )
Sheets(Array("Hoja1", "Hoja2")).Select
Range("A1") = "Prueba"
End Sub
Como se hace para que esto funcione?, o sea que lo copie en las dos hojas a
la vez. Gracias.

Intenta:

Sub prueba()
Sheets(Array("Hoja1", "Hoja2")).Select
Sheets("Hoja1").Activate
Range("A1").Select
Selection = "Prueba"
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel