заполнять несколько выпадающих списков excel в цикле

Question

У меня есть цикл for, который создает несколько выпадающих списков в разных частях моего листа excel. Однако мне сложно заполнить список. Список должен быть получен из листов в ws. Я предполагаю, что проблема заключается в том, что при назначении имени моего поля со списком он не получает назначение как объект. Вот код, который у меня есть. У кого-нибудь есть идея, как это сделать? Заранее спасибо.

Private Sub CommandButton1_Click() 

Set ws = Sheets(Array("rpi301", "rpi302", "rpi303", "rpi304", "rpi305")) 

For Each Sh In ws 
    Set Cell = Range(Sh.Range("B8").Value & CStr(Sh.Range("B9").Value)) 
    With Cell 
     ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height).Name = "Combo" 
     ActiveSheet.Shapes("Combo").ControlFormat.ListFillRange = Sh.Range("B2:B7") 
    End With 
Next 
End Sub 

Answer 1

Код является правильным. Но проблема в том, что именовать выпадающие списки. У них должны быть уникальные имена.