Busca de dados para Listbox

Boa tarde Estou desenvolvendo um relatório com Formulário pelo VBA, porém o código que estou utilizando está dando erro, não sei o motivo, que o mesmo código funcionou para outros relatórios… segue o código, se puderem ajudar, fico grato.

Private Sub PesquisarRelatorioGeral_Click()

ListBoxRelatorio.Clear

If StatusRelatorio = “” Then
MsgBox “Favor inserir Status!”, vbInformation, “Status vazio”
Exit Sub
End If

Dim linhaRel As Integer
Dim linhalistboxRel As Integer
Dim ValorCelulaRel As String
Dim sttRel As String

linhalistboxRel = 0
linhaRel = 5

Planilha2.Select

With Planilha2
While .Cells(linhaRel, 8).Value <> “”

ValorCelulaRel = .Cells(linhaRel, 17).Value

If UCase(Left(ValorCelulaRel, Len(ResponsavelRelatorio.Text))) = UCase(ResponsavelRelatorio.Text) Then

sttRel = .Cells(linhaRel, 23).Text

If sttRel = StatusRelatorio.Text Then

With ListBoxRelatorio

.AddItem

.List(linhalistboxRel, 0) = Planilha2.Cells(linhaRel, 8)
.List(linhalistboxRel, 1) = Planilha2.Cells(linhaRel, 9)
.List(linhalistboxRel, 2) = Planilha2.Cells(linhaRel, 10)
.List(linhalistboxRel, 3) = Planilha2.Cells(linhaRel, 11)
.List(linhalistboxRel, 4) = Planilha2.Cells(linhaRel, 12)
.List(linhalistboxRel, 5) = Planilha2.Cells(linhaRel, 13)
.List(linhalistboxRel, 6) = Planilha2.Cells(linhaRel, 14)
.List(linhalistboxRel, 7) = Planilha2.Cells(linhaRel, 15)
.List(linhalistboxRel, 8) = Planilha2.Cells(linhaRel, 17)
.List(linhalistboxRel, 9) = Planilha2.Cells(linhaRel, 18) ’ o código funciona perfeitamente até aui, na proxima linha da o erro 380 (não foi possivel definir a propriedade list. valor de propriedade inválido.
.List(linhalistboxRel, 10) = Planilha2.Cells(linhaRel, 20)
.List(linhalistboxRel, 11) = Planilha2.Cells(linhaRel, 21)
.List(linhalistboxRel, 12) = Planilha2.Cells(linhaRel, 22)
.List(linhalistboxRel, 13) = Planilha2.Cells(linhaRel, 23)

End With

linhalistboxRel = linhalistboxRel + 1

End If
End If

linhaRel = linhaRel + 1
Wend

End With
End Sub

Boa tarde.

É um limite do listbox, 10 colunas.
Tente isto: ListBox1.ColumnCount = 20

abs