garydp
09-23-2009, 02:52 PM
I have created a number of comboboxes that are created when a command button is pressed.
i used the following code to create the boxes
Dim UCLpar As Object
Set UCLpar = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=782.25, _
Top:=170, _
Width:=45, _
Height:=18.75)
ok now this works fine except when i try to add code after this using the .additem and .value = "" to populate the combobox i get an error.
Run-time error '438':
Object doesnt support this property or method
when i populate using the dropbuttonclick event it works ok. this isnt going to work for me as the worksheet and comboboxes are created at runtime.
i used the following code to create the boxes
Dim UCLpar As Object
Set UCLpar = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=782.25, _
Top:=170, _
Width:=45, _
Height:=18.75)
ok now this works fine except when i try to add code after this using the .additem and .value = "" to populate the combobox i get an error.
Run-time error '438':
Object doesnt support this property or method
when i populate using the dropbuttonclick event it works ok. this isnt going to work for me as the worksheet and comboboxes are created at runtime.