Hi everyone,

I had a error when I run my code.

Private Sub ComboBox3_Change()
Dim L As Long
Dim tabtemp as variant

With Worksheets("Sheet1")
L = .Range("a5000").End(xlUp).Row
tabtemp = .Range("A2:K" & L)
End With

For L = 1 To UBound(tabtemp, 1) ------------------------------ error 13 ?
If tabtemp(L, 1) = CLng(ComboBox3.Value) Then
ListBox1.AddItem tabtemp(L, 1)
ListBox2.AddItem tabtemp(L, 2)
ListBox3.AddItem tabtemp(L, 3)
ListBox4.AddItem tabtemp(L, 4)
ListBox5.AddItem tabtemp(L, 8)
ListBox6.AddItem tabtemp(L, 6)
ListBox7.AddItem tabtemp(L, 7)
ListBox8.AddItem tabtemp(L, 5)
End If
Next L

End Sub

Anyone can help ? Please :)

Thanks