DropDown in Excel

[toms]

Habe in Excel ein DropDown Feld DropDown1 auf
das Arbeitsblatt gesetzt.

Nun möchte ich dieses über ein Makro ansprechen und zwar so:

Code:

Set myDocument = Worksheets(1)
Set myRange = myDocument.Shapes("DropDown1")

Es sagt mir aber dann beim Ausführen des Codes, das DropDown1 nicht
gefunden werden kann.

Zusatzfrage: Wie finde ich heraus, auf welcher Zelle sich das DropDown befindet??

[toms]

Hab's selber rausgefunden

Code:

Sub DropDown_Change()
  Dim drpdwn As DropDown
  Set drpdwn = ActiveSheet.DropDowns(Application.Caller)

  adr = drpdwn.BottomRightCell.Offset(rowOffset:=0, columnOffset:=1).Address
  Range(adr).Select
End Sub