ActiveSheet.Range("$A$1:$CN$25425").AutoFilter Field:=37, Criteria1:=Array( _
"Bartlett Toni M", "Clanton Jason P P", "Hackman Courtney T T", _
"Tramutolo Arthur A"), Operator:=xlFilterValues
"Bartlett Toni M", "Clanton Jason P P", "Hackman Courtney T T", _
"Tramutolo Arthur A"), Operator:=xlFilterValues