title: Compile error 'named argument not found'
body: <p>Excel 2007</p>
  
  <pre><code>Sub Filtered_data_on_othersheet()
      Dim i As Integer
      Dim xx As String
  
      For i = 1 To 3
          On Error Resume Next
          xx = Sheets("main").Range("K" &amp; i).Value
          Range("A1").CurrentRegion.AutoFilter field:=1, Criterial:=xx
          Range("A1").CurrentRegion.Cells.SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets(xx).Range("A1")
  
      Next
      Err.Clear
      Range("A1").CurrentRegion.AutoFilter
  End Sub
  </code></pre>