Si no existe hoja "nombre", crearla, en VBA

Prueba colocando este codigo en un nuevo modulo.

Sub BuscaHoja()

Dim NombreHoja As String
Dim Hoja As Worksheet

NombreHoja = InputBox("Ingrese el Nombre de la Hoja a
Buscar", "Busqueda de Hoja")


For Each Hoja In Worksheets
If NombreHoja = Hoja.Name Then
MsgBox "La hoja ya existe"
Sheets(NombreHoja).Activate
Exit Sub
End If
Next

Sheets.Add
ActiveSheet.Name = NombreHoja

End Sub

Saludos al entrar en el grupo. He mirado los mensajes y

no veo este asunto,

por eso lo abro: quiero saber cómo detectar por programa

VBA si en un libro

xls existe una hoja con un "nombre" determinado.
En caso contrario, crearla.





.