Use an adaptation of the following
Dim i As Long
With Selection.Range.ContentControls(1)
For i = 2 To .DropdownListEntries.count
MsgBox .DropdownListEntries(i)
Next i
End With
DropdownListEntries(1) will return the place holder text, hence use For i = 2 to
|