pestañas de hojas del libro

[mrocf]

Hola! eljamb. Una opción podría ser el siguiente código VBA:

Código:

Sub CambioDeNombre()
n = 2

Application.ScreenUpdating = False
For ii = 2 To Sheets.Count
  Sheets(ii).Name = "Cacho" & ii
Next ii
For ii = 2 To Sheets.Count
  Sheets(ii).Name = Sheets(ii - 1).Name + n
Next ii
Application.ScreenUpdating = True
End Sub

Te aclaro que la sección:

Código:

For ii = 2 To Sheets.Count
  Sheets(ii).Name = "Cacho" & ii
Next ii

probablemente no sea necesaria.

Sin embargo, la he incluído previendo algunas "cuestiones" que se te puedan haber olvidado mencionar.

Saludos, Cacho.