Este fórum está sendo desativado

[batistathor]

Amigos Boa noite , tenho um problema com esse código quando executo da erro 438
Private Sub UserForm_Initialize()
Call Carregar_Listbox
End Sub

Sub Carregar_Listbox()

Planilha1.Select

Dim ArrayItems()

With Planilha1
ReDim ArrayItems(1 To .UsedRange.Rows.Count + 3, 3 To .UsedRange.clumns.Count + 1)

ListBox1.ColumnCount = .UsedRange.Columns.Count
For linha = 2 To .UsedRange.Rows.Count + 3

ListBox1.AddItem
For coluna = 2 To .UsedRange.Columns.Count + 1

ArrayItems(linha, coluna) = .Cells(linha, coluna).Value
Next coluna
Next linha

ListBox1.List = ArrayItems()

End With
End Sub

[osvaldomp]

De início notei o erro abaixo:
ReDim ArrayItems(1 To .UsedRange.Rows.Count + 3, 3 To .UsedRange.clumns.Count + 1)

correção ~~~> acrescente a letra "o", conforme em vermelho abaixo
ReDim ArrayItems(1 To .UsedRange.Rows.Count + 3, 3 To .UsedRange.Columns.Count + 1)