Macro para numerar hojas en Excel

Las hojas de un libro en Excel se pueden numerar con una macro que asignará un número consecutivo a cada hoja según los criterios que se le asignen.

Macro para agregar numeración consecutiva a las hojas de un libro en Excel.

El código de la macro es el siguiente:

Sub NumerarHojasExcel()
Dim i As Integer
i = 1 ' Número de la primera hoja
For Each Hoja In Worksheets
Hoja.Name = i ' Formato en que se mostrará en el nombre de la hoja.
i = i + 1 ' Valor en que se incrementará el número de cada hoja, ya sea 1 en 1, 2 en 2, etc.
Next Hoja
End Sub

Si queremos conservar el valor original de la hoja y sólo anteponerle un número, la línea 5 de la macro debe ser la siguiente:

Hoja.Name = i & "-" & Hoja.Name

El nombre de la hoja quedará así: 1-Hoja 1, 2-Hoja 2, etc. Se puede eliminar el separador que está entre comillas dejando un espacio en blanco o colocando otro separador.