VBA - Display Filtered List in ListBox

[AndyDubson]

I have a table (TabProduct) on worksheet "Product" which is being filtered based on the value entered in the "Supplier" field on a user form. I want the filtered data to populate a listbox named "ProductSelect"

The code I currently have will only display the rows until the first hidden row. I need to to display the entire filtered range. Can anyone help please!!!


Dim ws As Worksheet, rngList As Range
Set ws = Worksheets("Products")



If Supplier.Value <> "" Then
ws.Range("TabProduct").AutoFilter field:=4, Criteria1:=Supplier.Value
Else
ws.Range("TabProduct").AutoFilter field:=4
End If


With ActiveSheet
Set rngList = ws.Range("TabProduct").Rows.SpecialCells(xlCellTypeVisible)
End With




Me.ProductSelect.List = rngList.Value