Hoja nueva desde Vba excel

[davidhelios]

Solucionado!

Al final he encontrado un código que me sirve, a saber:

1°- Creo un modulo (yo ya lo tenía creado para las hojas nuevas) e introduzco el siguiente código:

Function ExisteHoja() As Boolean
For h = 1 To Sheets.Count
If Sheets(h).Name = formulario_insercion.Combo_lugar.Value Then
ExisteHoja = True
Exit Function
Else
ExisteHoja = False
End If
Next h
End Function

2° En el evento AfterUpdate he introducido lo siguiente:

Private Sub Combo_lugar_AfterUpdate()

Call ExisteHoja

If ExisteHoja Then
Exit Sub
Else
Worksheets.Add
ActiveSheet.Name = Combo_lugar.Value
End If

End Sub

He marcado en verde el código propio y asi si alguien más necesita utilizar esta función solo tiene que editar en esa zona su código personal.

Gracias!