If you used a linked cell (on the same sheet or a different sheet), you could
have looked there.
Or...
Option Explicit
Sub show_region()
Dim myDrop As DropDown
Set myDrop = Sheets("report").DropDowns("select_drop")
With myDrop
If .ListIndex = 0 Then
MsgBox "Nothing selected"
Else
MsgBox .List(.ListIndex)
End If
End With
End Sub
> I have a dropdown on a worksheet which is populated programatically - I can
> put the options into it fine, but I can't get them back out again.
[quoted text clipped - 19 lines]
> string without having to go back and compare the index to the list originally
> used to populate the dropdown?

Signature
Dave Peterson
Tara H - 18 Apr 2008 14:08 GMT
Thank you, that was exactly what I needed!
> If you used a linked cell (on the same sheet or a different sheet), you could
> have looked there.
[quoted text clipped - 40 lines]
> > string without having to go back and compare the index to the list originally
> > used to populate the dropdown?
Which version of excel?
I pasted your code in to a sheet module in Excel 2000. Pressing F1
returned the following:
Hidden Objects
Objects that have been hidden in the Microsoft Excel 97 Visual Basic
object model are listed in the following table. These objects are
supported only for backward compatibility; for new code, you should
use the replacement functionality provided in Microsoft Excel 97. To
view hidden objects in the Object Browser, right-click in the Object
Browser window and click Show Hidden Members on the shortcut menu. For
more information about the changes to the Microsoft Excel 97 object
model, see one of the following topics:
Hidden objects
Button, Buttons, CheckBox, CheckBoxes, DialogFrame, DropDown,
DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject,
GroupObjects, ListBox, ListBoxes, OptionButton, OptionButtons,
ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes
Replacement
ActiveX controls