Private Sub ComboBox30_Change()
Sheets("Sheet1").Select
If ComboBox30.Value = "X" Then Selection.AutoFilter Field:=2, Criteria1:=TextBox40.Value, Operator:=xlOr, _
Criteria2:="=*" & TextBox40.Value & "*"
If ComboBox30.Value = "Y" Then Selection.AutoFilter Field:=4, Criteria1:=TextBox40.Value, Operator:=xlOr, _
Criteria2:="=*" & TextBox40.Value & "*"
If ComboBox30.Value = "Z" Then Selection.AutoFilter Field:=7, Criteria1:=TextBox40.Value, Operator:=xlOr, _
Criteria2:="=*" & TextBox40.Value & "*"Line
If ComboBox30.Value = "XY" Then Selection.AutoFilter Field:=8, Criteria1:=TextBox40.Value, Operator:=xlOr, _
Criteria2:="=*" & TextBox40.Value & "*"
If ComboBox30.Value = "YZ" Then Selection.AutoFilter Field:=14, Criteria1:=TextBox40.Value, Operator:=xlOr, _
Criteria2:="=*" & TextBox40.Value & "*"
End Sub