Kontrolelement som rullegardin

Rullegardin er en slags inputbox.
Indspil en makro med valg x og y,
og se, hvad rullegardinet svarer.
Svaret bruger du så:
If svarX then
hændelseX
else if svarY then
hændelse Y
endif

Jeg forstår ikke helt hvad du mener? hvis jeg indspiller en makro efter at have indsat emner i rullegardinet gør den ikke noget?

Den her er ikke smart eller noget, men viser mulighederne du evt kan bruge:
har et active x objekt (Rullegardin) i ark 1
den fodre jeg med data her:
Private Sub Workbook_Open()
Ark1.vaelger.AddItem ("Diagram x")
Ark1.vaelger.AddItem ("Diagram y")
Ark1.vaelger.AddItem ("Diagram L")
End Sub

Så har jeg en makro:
If Ark1.vaelger.Text = "Diagram x" Then
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("A1:A6")
    ElseIf Ark1.vaelger.Text = "Diagram y" Then
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("A7:A11")
    End If

I "Rullegardin" vælges så den skal kører Makroen ( I dette tilfælde makro1)