Using a VBA code to sort a table

[MWG6317]

Please help. I have a table of employees that I need to filter based on their labor grade. I am able to filter them by only one labor grade as of right now. What I need is to filter them by multiple labor grades (27, 29, 31, 32, 33, 34, 35, 36). So far, I have this code:

Sub Table()
Application.ScreenUpdating = False

If [C29] = 27 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"27"
Sheets("Splash Screen").Select
End If

If [C30] = 29 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"29"
Sheets("Splash Screen").Select
End If

If [C31] = 31 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"31"
Sheets("Splash Screen").Select
End If

If [C32] = 32 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"32"
Sheets("Splash Screen").Select
End If

If [C33] = 33 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"33"
Sheets("Splash Screen").Select
End If

If [C34] = 34 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"34"
Sheets("Splash Screen").Select
End If

If [C35] = 35 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"35"
Sheets("Splash Screen").Select
End If

If [C36] = 36 Then
Sheets("Results").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"36"
Sheets("Splash Screen").Select
End If
End Sub[/FONT]





Is there anyway that I can link these together so I can select multiple labor grades? Example: 27, 35 and 36? Any help would be extremely appreciated. Thanks.

[dvb_24]

You might order the table from smallest (27) to biggest (36) and them sort using a range from >=27 to <=36 but that would work only for the values in the range not for values only in the extremes.

[dvb_24]

You can use different criteria as well like

Criteria1:="=27", _
Operator:=xlOr, Criteria2:="=36"

but don't know how many you can use.

[MWG6317]

dvb,
Going off of your criteria suggestion, how would you place that in the code I inserted above?