Adding items to ComboBox in a loop?

  • Thread starter Thread starter cmpcwil2
  • Start date Start date
C

cmpcwil2

Using vb comboBox is it possible to add the same items to numerous
comboBox on the same sheet?
I have been trying the following....

Dim mycntrl As OLEObject
Dim sht As Worksheet
Set sht = ActiveSheet

For Each mycntrl In sht.OLEObjects

mycntrl.addItem "item1"

Next mycntrl

However I noticed that the addItem method is not available when trying
this, so how would you add an item in a loop?

thank you in advance for any help
 
cmpcwil2,

This syntax is difficult for me to remember, but I think this is what you
want:

Dim mycntrl As OLEObject
Dim sht As Worksheet

Set sht = ActiveSheet
For Each mycntrl In sht.OLEObjects
If TypeOf mycntrl.Object Is ComboBox Then
mycntrl.Object.AddItem "item1"
End If
Next mycntrl

hth,

Doug
 
Dim mycntrl As OLEObject
Dim sht As Worksheet
Set sht = ActiveSheet

For Each mycntrl In sht.OLEObjects
if typeof mycntrl.object is MSforms.Combobox then
mycntrl.Object.addItem "item1"
end if

Next mycntrl
 
Back
Top