Objeto Range y Name

Function EsRangoConNombre(Rango As Range) As Boolean
Dim n As Name

EsRangoConNombre = False
For Each n In ThisWorkbook.Names
If Rango Is n.RefersToRange Then
EsRangoConNombre = True
Exit Function
End If
Next
End Function

"Marco Purizaca" escribió en el mensaje
news:044201c349ac$692830b0$
Saludos a todos

Pense que ya no iba a programar mas, pero en todo
trabajo siempre se vuelve necesario. Hace mas de un año
que no me dirijia al grupo, espero que puedan ayudarme. Mi
consulta esla sgte: Estoy desarrollando una aplicaciòn con
VBA de Excel y me encuentro que necesito identificar si un
objeto Range cuenta con nombre. Los nombres en Excel se
almacenan en el Objeto Names. Cuando hago:

If objRange.name.name="Fecha" then ...

Si el objeto rango cuenta con nombre verifica la
condicion, si no, genera un error. Existe algun modo de
saber si este objeto rango cuenta con nombre si esperar
generar un error. He buscado en casi todas sus propiedades
y no he encontrado nada..

Saludos desde el Peru