Как сделать макрос для ComboBoxa

[anahronism]

Существует документ в котором имеется 15-20 полей со списком в виде ComboBox. Поле со списком использует данные из столбца на другом листе. Как сделать макрос, который приводил бы значения во всех ComboBox,ах к "0" (очищал). До этого использовал макрос для Форм (Поле со списком). Его Код:
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 19.12.2007 (1)
'

'
Range("A24:A44").Select
Selection.ClearContents
Range("C24:C44").Select
Selection.ClearContents
Range("D24:D44").Select
Selection.ClearContents
'Начинаем обход всех объектов на листе
For Each i In ActiveSheet.Shapes
'Проверяем является ли объект полем со списком, и если да, то
'ставим его в 0
If i.Type = msoFormControl Then
If i.FormControlType = xlDropDown Then
i.ControlFormat.Value = 0
End If
End If
Next i
'Выделяем какую-нибудь ячейку, так будет красивей
Range("B17").Select
End Sub

Простая замена FormControl на ComboBox ни к чему хорошему не привела. Где я ошибаюсь?. Может кто поможетЗаранее благодарен всем за советы.