在循环中填充多个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

代码是正确的。但是问题是什么命名下拉菜单。他们应该有独特的名字。