Как получить имя диапазона, на который ссылается выпадающий список в Excel VBA

Question

У меня есть событие рабочего листа, когда пользовательская форма запускается при выборе выпадающего списка. Раскрывающийся список находится в sheet1, в то время как ссылки используют именованный диапазон в sheet2. Теперь мне нужно, чтобы это событие рабочего листа вызывало мою пользовательскую форму только для выпадающих списков, на которые есть ссылка на указанный c именованный диапазон. Я планирую использовать ...

If Not Intersect(Target, Range("NAMED_RANGE_1")) Is Nothing Then
  //do not show userform, be happy!
else
  //show userform, you are awesome! 

Но я не могу получить указанный именованный диапазон из выпадающего списка. Может кто-нибудь поучить меня, как получить именованный диапазон выбранного выпадающего списка?

Спасибо!

Answer 1

Вы можете получить список ссылок следующим способом (я полагаю, вы используете функцию Worksheet_SelectionChange (...)):

On Error GoTo endSub   ' skip if no validation set for Target
If Target.Validation.Formula1 <> "=NAMED_RANGE_1" Then
    ' do not show userform, be happy!
Else
    ' show userform, you are awesome!
End If

endSub:
    Exit Sub