Много ComboBox-ов с одинаковым диапазоном

[Tigranik]

Здравствуйте уважаемые программисты!
Ситуация следующая, имеется лист на котором размещено 100 ComboBox-ов ActiveX (ComboBox1, ComboBox 2, ComboBox 3… ComboBox 100) теоритически у всех них должен быть указан один и тот же диапазон ListFillRange = "AA1:AA50" (При этом диапазон часто меняется, поэтому нужно писать макрос).
Пробовал:

Private Sub Makrosik()
For i = 1 To 100
        ActiveSheet.Controls("ComboBox" & i).ListFillRange = "AA1:AA50"
    Next i
End Sub

Ругается на строку ActiveSheet.Controls("ComboBox" & i).ListFillRange = "AA1:AA50"
вопрос уже поднимался, но почему-то не один код мне не помог

[SAS888]

Если я правильно понимаю, то речь идет об объекте ActiveX на рабочем листе. Тогда можно так:

ActiveSheet.OLEObjects("ComboBox" & i).ListFillRange = "AA1:AA50"

[Tigranik]

Да именно ActiveX! Спасибо, все работает!