Arrays in vbscript

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