Insertar hojas personalizadas
Hola a todos: Creo que es fácil, necesito crear una macro que me cree una hoja y me pregunte que nombre le quiero dar
1 Respuesta
Respuesta de Elsa Matilde
1
La siguiente rutina la deberás copiar en un módulo:
Sub creahoja()
Dim nbreHoja As String
nbreHoja = InputBox("Ingrese Nombre de hoja a insertar")
If nbreHoja <> "" Then
'se agrega una hoja al final
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'se le asigna el nombre ingresado
ActiveSheet.Name = nbreHoja
End If
Sub creahoja()
Dim nbreHoja As String
nbreHoja = InputBox("Ingrese Nombre de hoja a insertar")
If nbreHoja <> "" Then
'se agrega una hoja al final
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'se le asigna el nombre ingresado
ActiveSheet.Name = nbreHoja
End If
