could not set the list property. Invalid property value error
<p>I have e code the looks up for "!UKINADMISSIBLE" in column "M" of the sheet. then it displays all the selected rows Having "!UKINADMISSIBLE" in a list box (listbox1). it works well but if I delete all "!UKINADMISSIBLE" from the sheet it gives me this error (could not set the list property, Invalid property value) on this line of code---> <strong>Me.ListBox1.List = arrLstBox()---> error</strong>
Can anybody help me fix it please.</p>

<pre><code>Private Sub btnIUK_Click()

Dim arrLstBox()
Dim rng, FoundCell, tmpCell As Range
Dim i, j, numRows, lastColumn, lastRow As Long
Dim FirstAddress, searchFor, colWidth As String

Set rng = ActiveSheet.UsedRange
numRow = 0

With rng

    lastRow = .Rows.Count
    lastColumn = .Columns.Count

End With

Me.ListBox1.ColumnCount = lastColumn
Me.ListBox1.ColumnWidths = "60;70;190;40;90;90;70;80;50;60;90;120;5"


    Set FoundCell = rng.Find(what:="!UKINADMISSIBLE", LookIn:=xlValues, lookat:=xlWhole)

    If Not FoundCell Is Nothing Then _
    FirstAddress = FoundCell.Address

    Do Until FoundCell Is Nothing

        Set FoundCell = rng.FindNext(after:=FoundCell)

        If FoundCell.Address = FirstAddress Then
            numRow = numRow + 1
            Exit Do
        ElseIf FoundCell.Row &lt;&gt; rng.FindNext(after:=FoundCell).Row Then
            numRow = numRow + 1
        End If

ReDim arrLstBox(1 To numRow + 1, 1 To lastColumn + 1)

Loop

Do Until FoundCell Is Nothing

    For i = 1 To numRow
        For j = 1 To lastColumn

            If Not IsEmpty(Cells(FoundCell.Row, j).Value) Then

                arrLstBox(i, j) = Cells(FoundCell.Row, j).Value

            End If


        Next j

        Set FoundCell = rng.FindNext(after:=FoundCell)

        If FoundCell.Address = FirstAddress Then _
            Exit For

    Next i

    If FoundCell.Address = FirstAddress Then _
            Exit Do

Loop

Me.ListBox1.List = arrLstBox()-----&gt;ERROR

lastRow = ListBox1.ListCount
MsgBox "Records Found = " &amp; lastRow, vb, "Inadmissibles On UK Sectors"

End Subode here
</code></pre>