obtener nombre de celda o rango

Hola otra vez, Yeryap.

Dándole más vueltas a tu asunto, llegué al siguiente procedimiento.
Pruébalo y lo adaptas a tu situación.

La idea es recorrer los nombres de rango de tu libro, y verificar con el
método Intersect si la celda activa se encuentra en cada uno de ellos. De
ser así, se van guardando en una variable y se muestran al fnalizar:

Sub EnRango()
Dim x, y As String
x = ActiveCell.Address
For Each rango In ThisWorkbook.Names
Set x1 = Application.Intersect(Range(x), Range(rango.RefersTo))
If Not (x1 Is Nothing) Then y = y & rango.Name & Chr(13)
Next rango
If Len(y) > 0 Then
MsgBox promPt:=y, Title:="Localizado en:"
End If
End Sub

Siempre comenta cualquier cosa (duda o modificación que hiciste al código)
que creas que pueda ser útil a la Comunidad...

Saludos.



"David" escribió:

Prueba con algo como esto:

msgbox Activecell.name.name

El problema que veo, es que esta instrucción te devolvería un error cuando
la celda activa no tenga un nombre aplicado específicamente a ella. Por
ejemplo, cuando sea parte de un rango nombrado XX...



"yeryap" wrote:

> como puedo obtener el nombre de una celda o rango de celdas? He visto varios
> post sobre lo contrario, ver las referencias de los nombres.. seria algo
> parecido a activecell.name
> que me devuelve 'Hoja!'F$2$, cuando realmente quiero que me devuelva
> 'Hoja!'importe
> La celda F2 tiene el nombre "importe" ;)
>
> Gracias de antemano