NUMERACION EN HOJAS DE EXCEL - Respuesta

11/09/2013 - 02:18 por dave | Informe spam
¡ Hola !

No puedo dar una respuesta directa a la pregunta del mismo titulo, por lo que lo hago desde aquí, espero pueda ayudar.´

Desde VBA (Alt+F11), en el objeto ThisWorkbook pega el siguiente código y cada que abras tu libro se actualiza los nombres de tantas hojas se tengan.

Private Sub Workbook_Open()

Dim Hoja As Worksheet
Dim Total, NumHoja As Integer

Total = 0
NumHoja = 1

For Each Hoja In Worksheets
Total = Total + 1
Next Hoja

For Each Hoja In Worksheets
Hoja.Name = "Hoja " & NumHoja & " de " & Total
NumHoja = NumHoja + 1
Next Hoja
End Sub
 

Preguntas similares