Hello...again
Can anybody help me to solve this Ploblem?

I try to additem for 3 comboBoxs and I want to use For .....Next to make it Short (Because I have to add about 50 items) , I used the follow command but it not work . Can anybody give me some Suggestion ?(What's wrong)

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