Как получить название диапазона активной ячейки?

[kipish_lp]

Здравствуйте, искала по форуму, но не нашла. Подскажите пожалуйста, как в vba получить название диапазона, в котором находится активная ячейка?

[Hugo121]

Коряво, но работает:

Option Explicit

Sub tt()
Dim nn As Object, cc As Range
For Each nn In ActiveWorkbook.Names
For Each cc In Range(nn)
If Selection.Address = cc.Address Then MsgBox nn.Name
Next
Next
End Sub

[kipish_lp]

nn возвращает имя листа#REF

"=Отопление!#REF!"

И выдает ошибку.

[maksim_serg]

а так:

Sub CommandButton1_Click()
MsgBox Selection.Address
End Sub

[Hugo121]

Определитесь, что Вам надо - адрес, номер ряда, буква/номер столбца или имя именованного диапазона. Я тянул последнее.

[kipish_lp]

Да в том-то и дело, что мне надо получить Имя диапазона, где находится активная ячейка, а не просто адрес. Но все, что я ни делаю, выводит ошибку ссылки. Хотя, все диапазоны, находящиеся на листе вручную я могу посмотреть.

[The_Prist]

Сообщение от Hugo121

Коряво, но работает:

Option Explicit

Sub tt()
Dim nn As Object, cc As Range
For Each nn In ActiveWorkbook.Names
If Mid$(nn, 2, InStr(nn, "!") - 2) = ActiveCell.Parent.Name Then
If Not Intersect(Range(Mid$(nn, InStr(nn, "!") + 1)), ActiveCell) Is Nothing Then MsgBox nn.Name
End If
Next
End Sub

Хотя такой код нормально будет работать только с именами, заданными явно, а не через формулы. С формулами надо подумать.

[kipish_lp]

Мож я какая-то не такая?
Method 'Range' of object'_Global' failed
в этом месте:

If Not Intersect(Range(Mid$(nn, InStr(nn, "!") + 1)), ActiveCell) Is Nothing Then

nn возвращает все то же.

[The_Prist]

Сообщение от kipish_lp

Мож я какая-то не такая?
Method 'Range' of object'_Global' failed
в этом месте:

Конечно, не такая
Я ж написал - только для ЯВНО ЗАДАННЫХ ДИАПАЗОНОВ! Я на 100% уверен, что Ваши диапазоны заданы через формулы, а не ссылками напрямую. Вот и возникает ошибка, т.к. нет такого адреса, к примеру: =СМЕЩ(Лист1!A1;;;СЧЁТЗ(Лист1!A1:A10 0))

С формулами сложнее гораздо. Думать надо...

[kipish_lp]

=Отопление!$17:$20
Отопление - это название листа. Это формула? Я создала обычный диапазон на текущем листе. Выделила диапазон и в окошке "Имя" написала название диапазона. Как сделать иначе, чтобы это не была формула?