How to add items to a combo box on user form

[Shweta]

Hi All,

I want to add item in combo box placed on a user form

I am using the code:
combobox1.additem (" A")
combobox1.additem (" B")
combobox1.additem (" C")

This is adding the item to the combobox but not once

means when I click on the arrow of combobox, it shows

A
B
C
A
B
C
A
B
C

Instead of this, it should be

A
B
C


Please tell me if I am doing some mistake in coding.

Thanks
Shweta

 

[imav]

It must be your Sub.

try this

Private Sub UserForm_Initialize()
ComboBox1.AddItem "A"
ComboBox1.AddItem "B"
ComboBox1.AddItem "C"
End Sub

imav

 

[Shweta]

It is within the sub

 

[imav]

Well then you need to Call it properly into your forms. What I posted works for me...

Private Sub UserForm_Initialize()
Call YourSub_Name
End Sub

 

[Nalani]

How about the following placed in the UserForm Code Window:

Private Sub UserForm_Initialize()
    With UserForm1.ComboBox1
        .AddItem ("A")
        .AddItem ("B")
        .AddItem ("C")
    End With
End Sub

If that doesn't work, can you post your Whole code.

 

[Shweta]

Thanx Nalini

Your code is working fine