Macro: Busqueda del nombre de un rango

[sariuski11]

Hola a todos,

Espero que alguien pueda ayudarme con una pequeña macro que estoy haciendo.

Estoy buscando el codigo que me mire si existe en excel un rango con un nombre definido.

De tal forma que si se ha definido un rango me salga un mensaje y sino existe ese rango con ese nombre en concreto que me salga otro mensaje.

Espero que alguien pueda ayudarme.

Yo he intentado varias opciones pero nada ha resultado:

If Worksheets("Hoja1").Range("XXX") = True Then

MsgBox "Hay rango"

Else

MsgBox "No hay rango"

End If

Espero que alguien pueda ayudarme.

Un saludo,

Sara

[sariuski11]

Hola,

He realizado el siguiente codigo para poder saber si hay un nombre de rango en la hoja excel y me funciona pero agradeceria si alguien podria decirme otra forma mejor.

Private Sub CommandButton1_Click()

On Error GoTo TC

Application.Goto Reference:="XXX"

Exit Sub

TC:
MsgBox "No hay rango"

End Sub