¡ 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
Leer las respuestas