Por la red hay varias formas de encontrar con VBA si una hoja existe (hay una funcion UDF por ahi), pero este aporte es solo una forma diferente para agregar hojas en un libro, comprobar existencia y agregar un link que nos devuelve al menu u hoja principal
Espero que sirva
Sub agregarhojas()
Dim Hoja As Worksheet, NuevaHoja As String, NuevoNombreHoja As String
With Application .ScreenUpdating = False Sheets("Menu").Range("A1").Name = "Inicio" NuevaHoja = .InputBox("Nombre de hoja:", "Agregar hojas") If NuevaHoja = "Falso" Or NuevaHoja = "False" Or NuevaHoja = Empty Then Range("A1").Select: Exit Sub NuevoNombreHoja = VBA.StrConv(NuevaHoja, vbProperCase) For Each Hoja In Sheets If VBA.StrConv(Hoja.Name, vbProperCase) = NuevoNombreHoja Then _ MsgBox "La hoja " & VBA.StrConv(Hoja.Name, vbProperCase) & " ya existe", , "" _ : Range("A1").Select: Exit Sub Next Hoja Sheets.Add(After:=Sheets(Sheets.Count)).Name = NuevoNombreHoja ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:= _ "Inicio", TextToDisplay:="Volver al menu..." .ScreenUpdating = True End With
Hola
Por la red hay varias formas de encontrar con VBA si una hoja existe (hay una funcion UDF por ahi), pero este aporte es solo una forma diferente para agregar hojas en un libro, comprobar existencia y agregar un link que nos devuelve al menu u hoja principal
Espero que sirva
Adjunto el archivo
Saludos desde Honduras
Agregar hoja y comprobar existencia.zip