Hi there,
I try to populate my listbox with data from a range
I have some code like this:
With Me.ListBox2
.ColumnCount = 1
.List = rSubCat2.Value
End With
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?
Cheers,
Sonny
Bookmarks