Sorry, but I did not quite understand tht.
However, I tried this, but i am getting run time error for object not detected.
Private Sub lstFilter_Option_1_Click()
Dim listarrary, strcriteria As Variant
Dim list1 As Variant
listarray = Array("tirewidth", "aspectratio", "rimradius", "SS")
list1...