Excel VBA Listbox MultiSelect для заполнения другого ListBox - VBA код с многостраничным кодом дает ошибку

Question

Я создаю список Excel VBA MultiSelect, чтобы заполнить другой список, используя видеоурок здесь:

https://www.youtube.com/watch?v=dWTEUWqlQAc

По сути, это означает, что «Excel, если я выбираю эти элементы из ListBox 1, который получает диапазон значений из столбца C Excel, возвращает мне список значений из столбца A Excel в той же строке»

Однако я получаю сообщение об ошибке «Ошибка компиляции при неверном использовании свойства»

Это выделяет этот код здесь:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Я не уверен, что я делаю неправильно. Это потому, что я использую Multi-страницу или что-то с этим кодом?

Я попытался пересмотреть этот проклятый урок, но, похоже, ничего не работает.

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


'find lastrow

lastrow = ThisWorkbook.Worksheets("List of Emails").Cells(Rows.Count, 1).End(xlUp).Row


'clear listbox1
Me.ListBox2.Value

'not just one value, but whichever were selected
For SelItm = LBound(Me.ListBox1.Email) To UBound(Me.ListBox1.Email)
    If Me.ListBox1.Selected(SelItm) = True Then
       'It is selected

        curVal = Me.ListBox1.List(SelItm, 0)

        For X = 2 To lastrow
            If emails.Cells(X, "c") = curVal Then
                'found a match; populate listbox2
                Me.ListBox2.AddItem ThisWorkbook.Worksheets("List of Emails").Cells(X, "a")
            End If
        Next X


    End If


Next SelItm


End Sub

Я не могу избавиться от сообщения об ошибке, как бы я ни старался. Вроде wtf это «Ошибка компиляции при неверном использовании свойства»? Я поступил точно так же, как и руководство Youtube.

Ценю, если кто-нибудь может предложить какую-либо помощь. Спасибо!