Populate combobox list

[Paella1]

If I populate a combo box list by name:

combobox1.List = Sheets("Admin").Range("benefittype").Value

No problem.

But...

if I loop through the combo boxes like this:

Dim cb As OLEObject

For Each cb In Sheets("FORM 1908").OLEObjects

    cb.List = Sheets("Admin").Range("benefittype").Value

Next cb

I get "Object doesn't support this property or method"

If I declare cb as a varaint I get the same problem.

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG09Mar19
[COLOR="Navy"]Dim[/COLOR] cb [COLOR="Navy"]As[/COLOR] OLEObject
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] cb [COLOR="Navy"]In[/COLOR] Sheets("FORM 1908").OLEObjects
    [COLOR="Navy"]If[/COLOR] TypeName(cb.Object) = "ComboBox" [COLOR="Navy"]Then[/COLOR]
        cb.Object.List = Sheets("Admin").Range("benefittype").value
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] cb
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Paella1]

Thanks Mick. It works. I don't understand that object business, but it works so I don't care. Thanks again.