活动工作簿和选择问题，Excel VBA

我有一个表单，我想用Rose和客户工作表中存储的数据填充两个列表框。下面带**的代码行B给我带来了麻烦

Private Sub UserForm_activate()

    Application.Workbooks("xx.xlsm").Activate

    ActiveWorkbook.Worksheets("Customers").Range("B2").Select
    Do Until IsEmpty(ActiveCell) = True
    'loop through the customer table list
        lstCustomers.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop

    *****ActiveWorkbook.Worksheets("Roses").Range("A3").Select
    Do Until IsEmpty(ActiveCell) = True
    'loop through the roses table list
        lstProducts.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop

End Sub

错误：选择范围类的方法失败

---

我做错了什么？

按顺序选择工作表和单元格，而不是一行

不要使用IsEmpty（）测试未填充的单元格。而是使用ActiveCell.Value=“”