Programmatically, I'd like to be able to determine the range name that is
tied to the active cell. How would I do that?

Thanks

sub cellname()
msgbox active.cell.name
end sub
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Barb Reinhardt" <(E-Mail Removed)> wrote in message
news:90AC4F41-A29C-417F-95BD-(E-Mail Removed)...
> Programmatically, I'd like to be able to determine the range name that is
> tied to the active cell. How would I do that?
>
> Thanks

Sub demp2()
Dim n As Name
For Each n In ActiveWorkbook.Names
If Intersect(ActiveCell, Range(n.Name)) Is Nothing Then
Else
MsgBox (n.Name)
End If
Next
End Sub


--
Gary''s Student


"Barb Reinhardt" wrote:

> Programmatically, I'd like to be able to determine the range name that is
> tied to the active cell. How would I do that?
>
> Thanks

Hi Barbara,

Try:

'=============>>
Public Sub Tester()
Dim sStr As String

On Error Resume Next
sStr = Range("A1").Name.Name
If Err.Number = 0 Then
MsgBox sStr
End If
On Error GoTo 0

End Sub
'<<=============


---
Regards,
Norman


"Barb Reinhardt" <(E-Mail Removed)> wrote in message
news:90AC4F41-A29C-417F-95BD-(E-Mail Removed)...
> Programmatically, I'd like to be able to determine the range name that is
> tied to the active cell. How would I do that?
>
> Thanks

Hi Norm:

What happens if there are several Named Ranges that include cell A1?
--
Gary's Student


"Norman Jones" wrote:

> Hi Barbara,
>
> Try:
>
> '=============>>
> Public Sub Tester()
> Dim sStr As String
>
> On Error Resume Next
> sStr = Range("A1").Name.Name
> If Err.Number = 0 Then
> MsgBox sStr
> End If
> On Error GoTo 0
>
> End Sub
> '<<=============
>
>
> ---
> Regards,
> Norman
>
>
> "Barb Reinhardt" <(E-Mail Removed)> wrote in message
> news:90AC4F41-A29C-417F-95BD-(E-Mail Removed)...
> > Programmatically, I'd like to be able to determine the range name that is
> > tied to the active cell. How would I do that?
> >
> > Thanks
>
>
>

Hi Gary,

> What happens if there are several Named Ranges that include cell A1?

The first name (alphabetically) wpould be returned.

To return possible multiple names, it would be necessary to loop, as
suggested by you, and test that the name range and the cell/range were
identical.


---
Regards,
Norman



"Gary''s Student" <(E-Mail Removed)> wrote in message
news:7CFD394B-2202-4288-8E8C-(E-Mail Removed)...
> Hi Norm:
>
> What happens if there are several Named Ranges that include cell A1?
> --
> Gary's Student
>
>
> "Norman Jones" wrote:
>
>> Hi Barbara,
>>
>> Try:
>>
>> '=============>>
>> Public Sub Tester()
>> Dim sStr As String
>>
>> On Error Resume Next
>> sStr = Range("A1").Name.Name
>> If Err.Number = 0 Then
>> MsgBox sStr
>> End If
>> On Error GoTo 0
>>
>> End Sub
>> '<<=============
>>
>>
>> ---
>> Regards,
>> Norman
>>
>>
>> "Barb Reinhardt" <(E-Mail Removed)> wrote in
>> message
>> news:90AC4F41-A29C-417F-95BD-(E-Mail Removed)...
>> > Programmatically, I'd like to be able to determine the range name that
>> > is
>> > tied to the active cell. How would I do that?
>> >
>> > Thanks
>>
>>
>>

typo
msgbox activecell.name

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Don Guillett" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> sub cellname()
> msgbox active.cell.name
> end sub
> --
> Don Guillett
> SalesAid Software
> (E-Mail Removed)
> "Barb Reinhardt" <(E-Mail Removed)> wrote in
> message news:90AC4F41-A29C-417F-95BD-(E-Mail Removed)...
>> Programmatically, I'd like to be able to determine the range name that is
>> tied to the active cell. How would I do that?
>>
>> Thanks
>
>