Obtener valor y nombre de lista desplegable - VBA

Prueba con lo siguiente:

Dim dd As DropDown
Set dd = ActiveSheet.DropDowns("Drop Down 1")
Set r = Sheet1.Range(dd.ListFillRange)
Set ddValue = r(dd.Value)

Para complementar la información, hay varias cosas que debes tener en cuenta:

1- Dropdown no es una clase visible.
2- Donde dice Sheet1 es donde tu lista desplegable se encuentra y por ende tu data
3- Para encontrar el nombre de la lista desplegable solo necesitas darle click derecho al control y con eso lo obtendrías.