Error 381Could not set the List property. Invalid property array index

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

Please Login or Register  to view this content.