saber celdas que forman parte de un nombre de celda

hola, Pedro !

quiero saber la celda E25 en cuantos nombres de celda ha sido incluida. Lo puedo saber?
Desde Insertar -- >Nombre --> Definicion soy capaz de saber los nombres de celdas y sus rangos
pero, como puedo obtener la informacion al reves.

en agosto de 2003 hubo una consulta 'similar' a esta que planteas... [por si te resulta de utilidad]...
copio/pego la conversacion de entonces :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

=

... nombre asignado a una celda ... si la celda "A1" tiene asignado ... como puedo saber ese nombre mediante código [...]

-> que pasa cuando desconoces [o no estas seguro de] si la celda...
- tiene [o no] un nombre 'asignado'?
- 'forma parte de' un nombre [o de mas de uno] con referencia a rangos NO 'continuos'?
- 'forma parte de' un nombre [o de mas de uno] PERO... como argumentos 'dentro' de una formula?

-> quizas no sea 'el momento' pero [estoy seguro que mas adelante] el siguiente codigo podria servir :))
-> solo 'funciona' para los dos primeros casos:
Sub Celda_En_Nombre()
Dim Nombre As Name, _
Celda As String, Ref_Nombre As String, Mensaje As String
Celda = ActiveCell.Address
On Error Resume Next
For Each Nombre In ActiveWorkbook.Names
Ref_Nombre = Nombre.RefersToRange.Address
If Ref_Nombre <> "" Then
If Not Intersect(Range(Celda), Range(Ref_Nombre)) Is Nothing _
Then Mensaje = Mensaje & "> " & Nombre.Name & vbCr
Ref_Nombre = ""
End If
Next
If Mensaje = "" Then Mensaje = "Ninguno !!!"
MsgBox "Nombres en los que ""interviene"" " & Celda & vbCr & Mensaje
End Sub