This will return the current selection from the DropDown
Sub TestDropdown()
Dim ws As Worksheet
Dim dd As DropDown
Set ws = ActiveSheet
Set dd = ws.Shapes("DropDown1").OLEFormat.Object
MsgBox dd.List(dd.ListIndex)
End Sub
BTW, assigning to a variable declared as Dim dd As DropDown
will give you intellisense on dd
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…