title: Set Auto Filtering multiple wildcards
body: <p>Right now I am doing coding to set a filter for a data chart. Basically, I don't know how to post the data sheet up here so just try to type them ):</p>
  
  <p>(starting from the left is column A)
  Name        *  BDevice   *  Quantity * Sale*  Owner</p>
  
  <p>Basically I need to filter out for 2 column:
  -The BDevice with any word contain "M1454" or "M1467" or "M1879" (It means that M1454A or M1467TR would still fit in)
  -The Owner with PROD or RISK</p>
  
  <p>Here is the code I wrote:</p>
  
  <pre><code>Sub AutoFilter()
  
    ActiveWorkbook.ActiveSheet..Range(B:B).Select
  
    Selection.Autofilter Field:=1 Criteria1:=Array( _
        "*M1454*", "*M1467*", "*M1879*"), Operator:=xlFilterValues
  
    Selection.AutoFilter Field:=4 Criteria1:="=PROD" _
        , Operator:=xlOr, Criteria2:="=RISK"
  
  End Sub
  </code></pre>
  
  <p>When I run the code, the machine returns error 1004 and the part which seems to be wrong is the Filter part 2 ( I  am not sure about the use of Field, so I can not say it for sure)</p>
  
  <p><strong>Edit; Santosh:</strong> When I try your code, the machine gets error 9 subscript out of range. The error came from the with statement. (since the data table has A to AS column so I just change to A:AS)</p>