I try to populate my listbox with data from a range
I have some code like this:
.ColumnCount = 1
.List = rSubCat2.Value
The code to fill the range is this one:
N = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set rSubCat2 = Application.Range("A1:A" & N)
rSubCat2 is a range wich is filled with a filtered range.
All works well, except when there is no data in the range. Then I get error 381 when de listbox is filled.
I can't find the solution for what to do when there are no values in the range.
The relevant code is in module 20 and userform 'ControlPanel3'
Anybody any ideas?