[EvroStandart]

Ну я там никаких дропдаунов ненашёл.

поиск по таблице пишется так:

Sub test()

nr = 160 ' ishem po nomeru

x = Range("A1").CurrentRegion.Rows.Count

For i = 1 To x
   If Range("B" & i).Value = nr Then
      MsgBox Range("A" & i).Text  ' polu4aem nazvanie
   End If
Next i

End Sub

Это работает с активным листом и с таблицей которая начинается от адреса A1