The Combo is in the Summary Worksheet,
and the other sheets:DC,Time,Sheet3
should react when user clicks, clearly there is something
missing in my code, thanks in advance


Public Sub ComboBox1_Click()
Call filt
End Sub




Public Sub filt()

If Worksheets("Summary").ComboBox1.Value = "Qual" Then
Worksheets("DC").Range("Letters").ShowAllData
Worksheets("DC").Range("Letters").AutoFilter Field:=2, Criteria1:="Qual"
Range("a3").EntireRow.Hidden = True
Worksheets("Time").Range("A1:B50").Clear
Worksheets("Sheet3").Range("a1:b17").Copy
Destination:=Worksheets("Time").Range("a2")
Else
If Worksheets("Summary").ComboBox1.Value = "Quant" Then
Worksheets("DC").Range("Letters").ShowAllData
Worksheets("DC").Range("Letters").AutoFilter Field:=1, Criteria1:="Quant"
Range("a3").EntireRow.Hidden = True
Else
If Worksheets("Summary").ComboBox1.Value = "Both" Then
Worksheets("DC").Range("Letters").ShowAllData
Range("a3").EntireRow.Hidden = True
Worksheets("Time").Range("A1:B50").Clear
Worksheets("Sheet3").Range("a1:b31").Copy
Destination:=Worksheets("Time").Range("a2")
End If
End If
End If
End Sub