Vba 填充组合框

在填充组合框时，我得到了一个错误

需要运行时错误424对象

下面是我的代码，我正在尝试将countriesrange名称列表填充为组合框中的国家

Sub Country()
    Dim Count As Range
    Dim ws As Worksheet

    Set ws = Worksheets("sheet2")

    For Each Count In ws.Range("countries")
        With ComboBox1
            .AddItem Count.Value
        End With
    Next Count
End Sub

请帮我解决我的错误。

---

提前感谢

尝试将变量名从Count更改为类似nCount的名称

此外，从代码的外观来看，为什么不使用.ListFillRange属性来执行此操作，而不是使用循环

代码在哪里？您只是在引用ComboBox1，请尝试在它所在的工作表上引用它。像

With Sheets(1).OLEObjects("ComboBox1").Object.AddItem 

或

---

错误在哪一行？这在用户表单上吗？不，它不是用户表单。错误出现在ComboBox1.AddItem Count.Value的行中代码在哪里？您只是在引用ComboBox1，请尝试在它所在的工作表上引用它。与Sheets1.OleObjectsCombox1.Object或Sheets1.Combox1.List=Sheetscountries.RangeA2:A10.Value一样，使用count作为除样式以外的变量名没有任何错误。它不是保留关键字，只是许多对象的属性。

Sheets(1).ComboBox1.List = Sheets("countries").Range("A2:A10").Value