drop down box

[litoquez]

I am doing this for the first time. I got as far as creating the macro
for a combo box to have it appear on the slide so someone could click
on the drop down arrow and have a list of categories appear from which
they could select one. But when I view the slide the box is empty.
Can anyone walk me through this? Here is my macro:

Private Sub ComboBox1_DropButtonClick()
Sub FillBox()
With Slide6.ComboBox1
End Sub
..AddItem "Information Technology"
..AddItem "Working Capital"
..AddItem "Financial Reporting"
..AddItem "Control & Compliance"
..AddItem "Internal & External Audit"
..AddItem "Forecasting & Budgeting"
..ListIndex = 0
End With
End Sub

 

[Bill Foley]

Well, let's see:

With Slide6.ComboBox1
End Sub
'other stuff here'

Doesn't look like the other stuff (AddItem) will happen!

 

[litoquez]

You're right Bill, my bad on pasting the macro. Excluding the
inadvertent End Sub it still doesn't work for me.