Excel le permite crear nuevas hojas de trabajo de diferentes formas. ¿Qué sucede si desea crear una nueva hoja de trabajo y nombrarla en un solo paso? La forma más sencilla de hacerlo es con una macro. El siguiente es un ejemplo de una macro que pedirá un nombre, y luego creará una hoja de trabajo y le dará a esa hoja de trabajo el nombre proporcionado.

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Esta macro funciona bien, siempre que el usuario ingrese un nombre de hoja de trabajo que sea «legal» según los estándares de Excel. Si el nuevo nombre no es aceptable para Excel, la hoja de trabajo aún se agrega, pero no se le cambia el nombre como se esperaba.

Una macro más robusta anticiparía posibles errores al nombrar una hoja de trabajo. El siguiente código de ejemplo agregará la hoja de trabajo, pero siga pidiendo un nombre de hoja de trabajo si se proporciona uno incorrecto.

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet

CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet     Sheets(CurrentSheetName).Select

End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

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

Este consejo (2022) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Creating_Worksheets_with_a_Macro [Creación de hojas de trabajo con una macro].