Private Sub ComboBox3_Change()
Dim Elmnt As Range, Col As Integer, J As Long
ListView1.ListItems.Clear
[COLOR="Blue"]If ComboBox3.ListIndex = -1 Then Exit Sub[/COLOR]
[D1].AutoFilter Field:=4, Criteria1:=[COLOR="Blue"]CDbl(ComboBox3.Value)[/COLOR]
For Each Elmnt In Range("A2", [A65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
With Me.ListView1
.ListItems.Add , , Elmnt.Value
For J = 1 To 8
.ListItems(.ListItems.Count).ListSubItems.Add , , Elmnt.Offset(0, J).Value
Next
End With
Next
End Sub