Элемент "Раскрывающийся список" с панели Формы и VBA

[fired]

Как в VBA считать номер выбранного элемента и его значение?
И можно ли это сделать, не задействуя LinkedCell?

Туговато соображаю что-то...

[fired]

Все оказалось просто

Dim N As Integer
Dim SelText As String
  
  N = ActiveSheet.DropDowns(Shapes("Раскр. список 1").Name).ListIndex
  SelText = ActiveSheet.DropDowns(Shapes("Раскр. список 1").Name).List(N)
  
  
  MsgBox "№ выбранного " & N & ", значение " & SelText

[fired]

Все оказалось просто

Dim N As Integer
Dim SelText As String
  
  N = ActiveSheet.DropDowns(Shapes("Раскр. список 1").Name).ListIndex
  If N<> 0 Then SelText = ActiveSheet.DropDowns(Shapes("Раскр. список 1").Name).List(N)
  
  
  MsgBox "№ выбранного " & N & ", значение " & SelText