Iterate Through OLEObjects For i

[JStellato]

I want to iterate through a range of combo boxes with similar names and add items to the combo box.

For i = 1 To 5

Set varComoBox = ThisWorkbook.Worksheets("System").OLEObjects("cbo" & i)


With varComoBox & i
.AddItem ">"
.AddItem ">="
.AddItem "<"
.AddItem "<="
.AddItem "="
End With
Next I

This code errors on the "With" with "Object does not support this property or method"

Thanks!

 

[Domenic]

Try replacing...

With varComoBox & i

with

With varComoBox.Object

Hope this helps!

 

[JStellato]

Thanks for the reply, I tried that, but it just brought the error down to the .AddItem line with the same error message.

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG05Oct05
[COLOR="Navy"]Dim[/COLOR] I [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]For[/COLOR] I = 1 To 5
    [COLOR="Navy"]With[/COLOR] ThisWorkbook.Worksheets("System").OLEObjects("ComboBox" & I).Object
        .AddItem ">"
        .AddItem ">="
        .AddItem "<"
        .AddItem "<="
        .AddItem "="
    [COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Next[/COLOR] I
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Domenic]

Actually, I had corrected my post so that it should be...

With varComoBox.Object