VBA Excel Error 424 search textbox to display listbox, error display listbox header : Private Sub SearchCommand_Click()

Dim i As Long
Sheet1.Activate
Me.ResultListbox.AddItem

For a = 1 To 5

**Me.ResultListbox.List(0, a - 1) = Sheet1.Cells(1, a)**
Next a

Me.ResultListbox.Selected(0) = True
End sub


[enter image description here][1]


  [1]: https://i.stack.imgur.com/sZatD.png