Dim tabtemp As Variant
Dim O, N As Integer
tabtemp = Sheets(2).Range('A2:K' & Range('a15000').End(xlUp).Row).Value
For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then
For N = 1 To 8
If tabtemp(O, N + 3) <> '' Then
Controls('ListBox' & N).AddItem tabtemp(O, N + 3)
End If
Next N
End If
Next O