Peter desarrolló una macro que borra todas las hojas de trabajo en un libro excepto una llamada «Índice». Esta macro funciona bien. Sin embargo, después de ejecutar la macro, si agrega una nueva hoja de cálculo, espera que se denomine «Hoja1» como predeterminado, pero en realidad se denomina un número posterior, como «Hoja3» u «Hoja4». Peter se pregunta qué se necesita para restablecer la numeración de hojas al valor predeterminado esperado.

La forma más fácil de restablecer la numeración de hojas es simplemente cerrar el libro y abrirlo nuevamente. Eso, sin embargo, implica un paso manual de su parte. Si está agregando las nuevas hojas de trabajo a través de una macro, probablemente no desee cerrar y volver a abrir manualmente el libro de trabajo.

Si lo desea, puede crear una macro simple para realizar el proceso de cierre y reapertura. Esto funcionará siempre que la macro esté almacenada en su libro de macros personal y no en el libro que está cerrando.

Sub Reopen()

Dim wb As Excel.Workbook     Dim sPath As String

Set wb = ThisWorkbook     sPath = wb.FullName

Application.OnTime Now + TimeValue("00:00:01"), _       Application.Workbooks.Open(sPth)

wb.Close (True)

End Sub

La macro determina el nombre del libro actual y luego establece un evento OnTime para abrir el libro 1 segundo en el futuro. Sin embargo, durante ese segundo, el libro de trabajo se cierra y se guarda, lo que permite que se vuelva a abrir correctamente.

Si lo desea, también puede optar por agregar sus nuevas hojas de trabajo a través de una macro.

La siguiente macro corta agrega una hoja de trabajo y luego inmediatamente le cambia el nombre al nombre deseado.

Sub AddWs()

Worksheets.Add after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = "Sheet" & Sheets.Count - 1 End Sub

Querrá jugar con estas soluciones y encontrar cuál funciona mejor para sus necesidades, especialmente si desea integrar la solución con una macro ya existente.

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (6103) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.