Nombres de hojas (Numeración)

Si es secuencial, empezando de uno, el número de hoja a insertarse debe ser
igual a la cant de hojas del libro, por ende debes insertar este evento en
la hoja ThisWorkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Name = "Hoja" & Sheets.Count
End Sub

puedes adaptarlo para que el número de la nueva hoja sea igual al número de
la última hoja del libro más 1


Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Name = "Hoja" & _
Mid(Sheets(Sheets.Count).Name, 5, Len(Sheets(Sheets.Count).Name)) + 1
End Sub


"Deyvi Valera" escribió en el mensaje
news:
Saludos, tengo un problema, al borrar algunas hojas como por ejemplo:
"Hoja4" u "Hoja5" y al insertar otras nuevas estas siguen la secuencia de
numeración "Hoja6" ... Necesito que la insertar una nueva hoja esta sea
correlativa con respecto a las hojas que hay en el archivo abierto osea
vuelva a "Hoja4".
¿¿??
Muchas gracias anticipadas

Saludos
Deyvi

Muchas gracias, justo lo que necesitaba

"- José Luis -" escribió en el mensaje
news:

Si es secuencial, empezando de uno, el número de hoja a insertarse debe

ser

igual a la cant de hojas del libro, por ende debes insertar este evento en
la hoja ThisWorkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Name = "Hoja" & Sheets.Count
End Sub

puedes adaptarlo para que el número de la nueva hoja sea igual al número

de

la última hoja del libro más 1


Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Name = "Hoja" & _
Mid(Sheets(Sheets.Count).Name, 5, Len(Sheets(Sheets.Count).Name)) + 1
End Sub


"Deyvi Valera" escribió en el mensaje
news:
Saludos, tengo un problema, al borrar algunas hojas como por ejemplo:
"Hoja4" u "Hoja5" y al insertar otras nuevas estas siguen la secuencia de
numeración "Hoja6" ... Necesito que la insertar una nueva hoja esta sea
correlativa con respecto a las hojas que hay en el archivo abierto osea
vuelva a "Hoja4".
¿¿??
Muchas gracias anticipadas

Saludos
Deyvi