Именованный диапазон

[A_L_E_X]

Во вложенном файле - проблема.
На листе 1 - два именованных диапазона, в каждом - по 3 именованных диапазона (для наглядности выделены форматами).
На листе 2 - один именованный диапазон.

Задача - выделить диапазон, в который попала произвольно выделенная ячейка.

Сразу прошу не кидаться тапками - если убрать имя с листа 2 - макрос работает (нашел его здесь).
А как только появляется имя на любом другом листе - кирдык.

И еще.
Как сделать так, чтобы попадание в именованный диапазон проверялось только в заданном изначально диапазоне - т.е., если задать ИМЯ1, в который входят имя11, имя12,..., то проверка выполнялась бы только среди этих диапазонов (имен).

Заранее благодарен

[EducatedFool]

Sub Выбо_Диапазона_по_ИМЕНИ()
    Dim rName As Name
    For Each rName In ActiveWorkbook.Names    ' перебираем все имена в книге
        If rName.RefersToRange.Worksheet Is ActiveSheet Then    ' если это имя с активного листа
            If Not Intersect(ActiveCell, rName.RefersToRange) Is Nothing Then
                rName.RefersToRange.Select: Exit For    ' выделяем именованный диапазон
            End If
        End If
    Next rName
End Sub

[A_L_E_X]

Спасибо!
Все работает, пошел думать дальше.