Recorrer hojas de un libro con "ciclo for"

[3pies]

Este sería un ejemplo de macro, que te soluciona el problema:

Código:

Sub recorrer_libro()
'para todas las hojas del libro...
For i = 1 To Sheets.Count
  'seleccionamos la hoja que corresponda
   Sheets(i).Select
  'escribimos lo que queremos   
   Range("A1") = "¿Facilito, esto de escribir en todas las hojas, verdad?"
'continuamos con la siguiente hoja
Next
End Sub

Salu2