Agregar hoja y comprobar existencia

[Gerson Pineda]

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

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

End Sub[/PHP]

Adjunto el archivo

Saludos desde Honduras

Agregar hoja y comprobar existencia.zip