vba - Excel VBA: ListBox-UserForm 変数作成の問題

Question

他のウェブサイトで同様の質問を確認しましたが、解決策が見つかりませんでした。

リストボックス ユーザーフォームの内容から変数を生成しようとしています。リストの内容はワークブックの名前です。最初のコードは、参照用にリストの内容を生成する方法を示しています。コードの 2 番目の部分に問題があります。

Private Sub CommandButton1_Click()
    Dim wb As Workbook

    For Each wb In Workbooks
        With ListBox1
            .AddItem (wb.Name)
        End With
    Next wb
lbl_Exit:
End Sub

Object Required以下の For Each 行でエラーが発生します。このコードは、Userform.

Private Sub CommandButton3_Click()
    Dim MainBook As Workbook
    Dim ListBox1 As ListBox

    For Each Item In ListBox1
        If Item.Name Like "Aggregate" Then
            Item.Select
            Set MainBook = Selection
        End If
    Next
End Sub

注Item：それは、私がそれを取得したListBoxのプロパティである と読みました。