Seya, set correct range and Field and try this
Sub FilterByMoreThanTwo()
Range("A1:C1").AutoFilter ' set your range
Range("A1:C1").AutoFilter Field:=1, Criteria1:=Array("AGD", "mrk", "macro"), _
Operator:=xlFilterValues
End Sub
or if you want to be able to use an array variable that's made of variables
Sub FilterByMoreThanTwo()
Range("A1:C1").AutoFilter ' set your range
Dim arr(3) As String
arr(0) = "AGD"
arr(1) = "mrk"
arr(2) = "macro"
Range("A1:C1").AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
End Sub