PowerPoint DropBox

Hey guys,

For some reason, when I open the power point and use the Drop-down combo-box, I have to double click in order for the whole list to drop down. If not, I can only see the first option. Can anyone help me on this please? Here is a thank you in advance.

%%%%%%%
Code:

Sub ComboBox1_GotFocus()
If ComboBox1.ListCount = 0 Then AddDropDown
End Sub

Sub AddDropDown()
With ComboBox1
.AddItem "Hello", 0
.AddItem "Delinquen", 1
.AddItem "Period", 2
.AddItem "Period", 3
.AddItem "Periodss", 4
.AddItem "Hellos", 5
.AddItem "Hello Periods", 6
.AddItem "United Four Locates", 7
.ListRows = 8
End With
End Sub

&&&&&&&&&
&&&&&&&&&

OneClick.PNGClick2.PNG