I don't know why that happens.

Maybe you could use Bob's idea and place the listbox where you want it. Just
hide it or unhide it in your code.

Vipul wrote:

hi again dave,

now i got another problem
when i tried to add items in the list box i created, i m not able to
retrieve the added items but not able to see them.

here is the code:

Sub TEST1()
Dim oOLE As OLEObject
Dim lstCustomers As MSFORMS.ListBox
Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1",
Left:=537, Top:=189, Width:=120, Height:=150)
Set lstCustomers = oOLE.Object
lstCustomers.AddItem "A"
lstCustomers.AddItem "b"
lstCustomers.AddItem "c"
lstCustomers.AddItem "d"
MsgBox lstCustomers.List(2)
End Sub

"Dave Peterson" wrote:

Use:
Dim lstCustomers As msforms.ListBox

When you used:
Dim lstCustomers As ListBox

You were using the listbox from the Forms toolbar.

Vipul wrote:

Hello people,

I have one combobox on my sheet and I am trying to put a listbox on the same
sheet.
so when i click on Add To List button it should add the selected value from
combobox to the listbox.
but i m not able to insert a listbox.
can anyone please help me with this.

This is the code i m using to insert a listbox on my sheet.
and i m getting Type Mismatch error

Sub TEST()
Dim oOLE As OLEObject
Dim lstCustomers As ListBox

Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1",
Left:=537, Top:=89, Width:=120, Height:=15)

Set lstCustomers = oOLE.Object
End Sub

hope to hear something on this.
Vipul Agheda

--

Dave Peterson


--

Dave Peterson