Сбросить многие выпадающие списки в нулевое значение Excel VBA

Question

У меня есть лист с несколькими сотнями выпадающих списков. Я хочу кнопку, которая сбрасывает их все к нулевому или верхнему значению при нажатии. Я могу заставить его работать на отдельные выпадающие списки, но не могу получить синтаксис право на l oop через группу из них. Я перепробовал все, что мог придумать, чтобы добавить «i» в «Drop Down», но не могу заставить его работать.

Это отлично работает, я не хочу писать это несколько сотен раз :

ThisWorkbook.Sheets("sheet1").Shapes("Drop Down 260").ControlFormat.Value = 1

Как мне заставить это работать:

For i = 1 To 260
    ThisWorkbook.Sheets("sheet1").Shapes("Drop Down & i").ControlFormat.Value = 1
Next i

Я пробовал ("Drop Down" & " " & "i"), ("Drop Down" & " " & i) и все остальное, что мог придумать. Я исчерпал Google и не могу понять это.