application defined error when populate in listbox on form

Ali

Your code failed because you did not tell VBA what the value variable i was. Therefore it was looking for cell(0,1) which does not exist. Also you did not increment i  and the first dimension of your array vData had a final index of 10 (but your code tried to populate elements in positions 11, 12, 13 and 14).

In the revised file attached, I have modified your code as shown below (changes in bold). Note that I moved the ListBox2.Clear command to before your loop runs and ensured i is incremented (even if j is not).

Private Sub TextBox7_AfterUpdate()
Dim i As Long
Dim vData()
Me.ListBox2.Clear
'set array index
j = 0
' set first row to check
i = 6
While SH1.Cells(i, 1) <> ""


If SH1.Cells(i, 1).Value >= CDate(Me.TextBox6.Text) And _
SH1.Cells(i, 1).Value <= CDate(Me.TextBox7.Text) Then
    ' changed from 0 to 10  to 14
    ReDim Preserve vData(0 To 14, 0 To j)
    vData(0, j) = SH1.Cells(i, 1).Value
    vData(1, j) = SH1.Cells(i, 2).Value
    vData(2, j) = SH1.Cells(i, 3).Value
    vData(3, j) = SH1.Cells(i, 4).Value
    vData(4, j) = SH1.Cells(i, 5).Value
    vData(5, j) = SH1.Cells(i, 6).Value
    vData(6, j) = SH1.Cells(i, 7).Value
    vData(7, j) = SH1.Cells(i, 8).Value
    vData(8, j) = SH1.Cells(i, 9).Value
    vData(9, j) = SH1.Cells(i, 10).Value
    vData(11, j) = SH1.Cells(i, 12).Value
    vData(12, j) = SH1.Cells(i, 13).Value
    vData(13, j) = SH1.Cells(i, 14).Value
    vData(14, j) = SH1.Cells(i, 15).Value
    'increment array index
    j = j + 1

    End If
' loop down worksheet
i = i + 1
Wend

If j > 0 Then
    UserForm1.ListBox2.Column = vData
    Else
    UserForm1.ListBox2.AddItem "*No matches *"
End If

End Sub

Hope this fixes things for you.