Adding items to a combobox

[Sharid]

I have a userform , with multi page on it, on some of the pages I have combo boxes. I used the following bit of the code to add items to the combo-boxes. I used the same code for each of combo-boxes. I just changed the NAME so it referred to the correct combo-box

Private Sub ComboBox1_Enter()
ComboBox1.AddItem ("Car")
ComboBox1.AddItem ("Bus")
ComboBox1.AddItem ("Bike")
ComboBox1.AddItem ("Train")
ComboBox1.AddItem ("Walking")
End Sub

The Problem
The problem I am having is that each time I select an item, it reshows it in the dropdown of the combo-box, hence the list of dropdown grows.

In the attached example, select a option from the combo box and then click into the textbox, then open combo-box again and the list should have grown.
Download File

 

[dmt32]

Hi, use the the forms initialize event

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Array("Car", "Bus", "Bike", "Train", "Walking")
End Sub

Dave

 

[Norie]

Either Clear the combobox or populate using an array.

ComboBox1.List = Array("Car", "Bus", "Bike", "Train", "Walking")

 

[Sharid]

Norie

My list is long, and will go off screen, is there a way it could be done as shown below, so it is easier to read.

ComboBox1.List = Array("Car", 
"Bus", 
"Bike",
"Train", 
"Walking")

 

[dmt32]

To cut lenght of list down Just insert a continuation

Me.ComboBox1.List = Array("Car", "Bus", "Bike", _
                              "Train", "Walking")

Dave

 

[Norie]

Rather than a line for each item, put a few items on each line and use a continuation character.

ComboBox1.List = Array("Car", "Bus", "Bike", _
                                        "Train", "Walking")

 

[Sharid]

Thanks I did try that, but it gave me a error, that is why I asked. I have tried it again and its has worked.

Thanks to everyone for there help