Error passing array to listbox as a parameter

Objective : Create a userform and take a user input, and then from user input put it in a list and when you click the list it automatically find it in the whole workbook.

Something Like this:

I saw this post: Match in whole workbook

And I created something out of that:

Public Sub CommandButton3_Click()

    Dim TempArray As Variant
    Dim RealArray()

    TempArray = Application.InputBox("Select a range", "Obtain Range Object", Type:=64)
    ArrayRows = UBound(TempArray)
    ReDim RealArray(1 To ArrayRows)
    For i = 1 To ArrayRows
        RealArray(i) = TempArray(i, 1)
    Next i

    MsgBox "The number if rows selected are " & ArrayRows
    ListBox1.List = RealArray
    ListBox1 Arraay:=RealArray

End Sub

Public Sub ListBox1_Click(ByRef Arraay() As Variant)
    Dim Sh As Worksheet
    Dim something As Range
    Dim ArrayRows As Long

    For Each Sh In ThisWorkbook.Worksheets

        With Sh.UsedRange
            For i = 1 To ArrayRows
                Set something = RealArray.Find(What:=RealArray(i))
                If Not something Is Nothing Then
                    Do Until something Is Nothing
                        test = something.Value
                        Set something = .FindNext(something)
                    Loop
                End If
            Next i
        End With
        Set something = Nothing

    Next
End Sub

After creating this, I get an error regarding the second sub.

procedure declaration does not match description of event or procedure having the same name