Определить есть ли на листе выпадающий список

[DimsL]

Добрый день!

Подскажите пожалуйста, каким образом можно определить есть ли на листе
Excel выпадающий список и если есть, то на какое имя диапазона он ссылается?

[аналитика]

с панели "Формы" или ActiveX?
файл выкладывай лучше...

[Serge 007]

Или из проверки данных?

Вручную просто: F5 - объекты или F5 - проверка

[DimsL]

да, из проверки данных. Но необходимо сделать это программно.

Есть книга Excel c большим количеством листов. На некоторых листах есть выпадающие списки. Хочу определить на каком листе какие списки используются.

[аналитика]

Sub m()
   Dim sh As Worksheet

   For Each sh In Sheets
      sh.Activate
      On Error Resume Next
      Cells.SpecialCells(xlCellTypeAllValidation).Select
      If Err <> 0 Then Cells(1).Select
      On Error GoTo 0
   Next sh
End Sub

[DimsL]

Спасибо!

А как определить имя диапазона, на который ссылается список?
И проблема ещё в том, что на одном листе может быть несколько разных списков.

[аналитика]

а в каком виде тебе информацию выкидывать о диапазоне, на основании которго строится список?
в ячейку, примечание, на отдельный лист, в текстовый файл, реестр???

[DimsL]

Это не критично, например на отдельный лист.

[DimsL]

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

[nilem]

Вот, в продолжение кода от аналитика.