Why are you trying to add it in code, why not just add it in design?

--
__________________________________
HTH

Bob

"Vipul" wrote in message
...
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