additem for 3 ComboBoxs

Mar 13th, 2002, 09:38 AM

I try to add item for 3 comboBoxs and I want to use For .....Next to make it Short , I used the follow command but it not work . Can anybody give me some Suggestion ?

For i = 1 to 3
With ActiveSheet.Shapes(ComboBox i ).Select
.Additem "A"
.Additem "B"
...............
..............
..............
End with
Next i

DMeador52 · Mar 13th, 2002, 09:41 AM

Maybe try ActiveSheet.Shapes("ComboBox " & i) ...

Mar 13th, 2002, 10:04 AM

It's show Runtime-time error 424. Anybody have other idea ?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 13th, 2002, 09:38 AM	#1
Guest Posts: n/a	I try to add item for 3 comboBoxs and I want to use For .....Next to make it Short , I used the follow command but it not work . Can anybody give me some Suggestion ? For i = 1 to 3 With ActiveSheet.Shapes(ComboBox i ).Select .Additem "A" .Additem "B" ............... .............. .............. End with Next i

Mar 13th, 2002, 09:41 AM	#2
DMeador52 New Member Join Date: Mar 2002 Posts: 32	Maybe try ActiveSheet.Shapes("ComboBox " & i) ...

Mar 13th, 2002, 10:04 AM	#3
Guest Posts: n/a	It's show Runtime-time error 424. Anybody have other idea ?