excel - アクティブなワークブックと選択した課題、Excel VBA

Question

Roses ワークシートと Customers ワークシートに保存されているデータを 2 つのリストボックスに入力するフォームがあります。以下の* * を含むコード行は、私に問題を引き起こしているものです。

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

エラー: 範囲クラスの選択メソッドに失敗しました

私は何を間違っていますか？