G
Guest
Guest
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
For i = 1 to 3
With ActiveSheet.Shapes(ComboBox i ).Select
.Additem "A"
.Additem "B"
...............
..............
..............
End with
Next i