Código para carregar Listbox com dados da planilha

Crie um Userform coloque nele uma Listbox.
De um duplo click na Listbox  apague o que estiver escrito dentro dela, cole o código abaixo.

BOM PROVEITO!!!

Private Sub UserForm_Initialize()
    Dim arrayItems()
    With Planilha1'aqui você pode alterar o nome da planilha'
        ReDim arrayItems(1 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count)
        Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
        For linha = 1 To .UsedRange.Rows.Count
            Me.ListBox1.AddItem
            For coluna = 1 To .UsedRange.Columns.Count
                arrayItems(linha, coluna) = .Cells(linha, coluna).Value
            Next coluna
        Next linha
        
        Me.ListBox1.List = arrayItems()
    End With
End Sub