recorrer todas las hojas de un libro

   buenas tardes. Quiero insertar en la celda "A1" de todas las hojas de un libro excel un determinado valor. Para ello, y a modo de ejemplo, utilizo el siguiente código:Sub ejemplo()
Dim WS As Integer
Dim I As Integer
Dim n As String
WS = ActiveWorkbook.Worksheets.Count
      For I = 1 To WS
            Range("A1").Value = "hola"
      Next I
End Sub
El bucle recorre todas las hojas, pero solo escribe "hola"  en la celda A1 de la hoja activa (desde la que llamo a la macro).
Como puedo hacer para que escriba en todas las hojas ese texto.
gracias

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
porqueroles Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 18/Enero/2011 Estado: Sin conexión Puntos: 53	Tema: recorrer todas las hojas de un libro Enviado: 10/Noviembre/2017 a las 22:18
	buenas tardes. Quiero insertar en la celda "A1" de todas las hojas de un libro excel un determinado valor. Para ello, y a modo de ejemplo, utilizo el siguiente código: Sub ejemplo() Dim WS As Integer Dim I As Integer Dim n As String WS = ActiveWorkbook.Worksheets.Count For I = 1 To WS Range("A1").Value = "hola" Next I End Sub El bucle recorre todas las hojas, pero solo escribe "hola" en la celda A1 de la hoja activa (desde la que llamo a la macro). Como puedo hacer para que escriba en todas las hojas ese texto. gracias

AnSanVal Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5771	Enviado: 10/Noviembre/2017 a las 22:28
	Worksheets(I).Range("A1").Value = "hola"
	Saludos desde Tenerife. Mi sitio_web con ejemplos Excel.

porqueroles Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 18/Enero/2011 Estado: Sin conexión Puntos: 53	Enviado: 10/Noviembre/2017 a las 22:50
	ahora SI. Muchas gracias. saludos