Tenho o seguinte código, que está dando o erro "Erro em tempo de execução '424' : O objeto é obrigatório"

Question

Sub preencherlistbox()

Dim ultimalinha As Long
Dim Linha As Integer


ultimalinha = Plan1.Range("A65000").End(xlUp).Row

For Linha = 2 To ultimalinha

UserForm.ListBox1.AddItemPlan1.Range ("A" & Linha)

UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Plan1.Range("C" & Linha) = Plan1.Range("D" & Linha) = Plan1.Range("E" & Linha) = Plan1.Range("F" & Linha) = Plan1.Range("G" & Linha) = Plan1.Range("H" & Linha)



Next


End Sub