Macro para crear hoja si no existe

[Benito Bartolomé]

Buen día a todos;

-Adjunto una macro que sí la hoja no está creada me la crea.

Esto lo hace con la "Function ExisteHoja"

Para que funcione tengo que nombrar las hojas como: Hoja1,Hoja2, etc... y yo las tengo nombradas de forma personalizada.

¿No sé si esto es posible?.

 

Saludos.

MHojaName.xlsm

[Antoni]

Sub crearHoja()
Dim Hoja As String

Hoja = "Benito" '<---------- Tu hoja nueva

If ExisteHoja(Hoja) Then
   MsgBox "Ya existe la hoja " & Hoja, vbCritical
Else
   Sheets.Add(After:=Sheets(Sheets.Count)).Name = Hoja
   MsgBox "Se ha creado la hoja " & Hoja, vbInformation
End If
End Sub

Function ExisteHoja(Hoja As String) As Boolean
For h = 1 To Sheets.Count
   If Sheets(h).Name = Hoja Then
      ExisteHoja = True
      Exit Function
   End If
Next h
End Function

 

[Benito Bartolomé]

Bo día e gracias Antoni;

He estado viendo la macro y me faltó la variable Hoja="Nombre" y ponerla en el condicional de la Función.

Me estaba despistando el ciclo For.

Lección aprendida.

Un abrazo y saludos a la Capital.