Incrementar una celda de diferentes hojas

[lacus]

Hola es algo raro o que nesecito , tengo un documento de excel con mas de
100 hojas ,en cada hoja tendria que insertar en una celda un numero este nuemero tiene que ser correlativo.
ejemplo
Hoja1 celda a1 = 1
Hoja2 celda a1 = 2
asi en todas las hojas hasta completarlas.
hay alguna funcion en un macro que pueda usar para esto.
Gracias.

[David]

Puedes de una forma rápida con una macro sería:

Código PHP:

  Sub Hojas()
Dim Looping As Integer
For Looping = 1 To Worksheets.Count
    Worksheets(Looping).Range("A1") = Looping
Next Looping
End Sub 
   

[lacus]

Gracias funciono muy bien.