I have a table 1 as shown below which I want to use to populate a listbox.

I would like to loop through the table, column heading "Customer Name", to populate the listbox.
Please see the code below.
For i = 1 To Sheets("Sheet1").Range("Table").Rows.count
If Range("Table[Customer Name]")(i) = a Then frmFeee.lstCust.RowSource = Sheets("Sheet1").Range("A" & i & ": D" & i)
Next i
Any help is greatly appreciated.
Thank you.