如何在VBA中激活Excel过滤器

Question

    Sub Main
        Rem Application.Visible = True
        Windows("PurchaseOrderReport-DAIAUSSYD1.xls").Activate
        Application.ActiveWorkbook.Sheets("General").Select
        ActiveSheet.Range("$A$7:$W$500").AutoFilter Field: = 4, Criteria1: = 
        "FREMANTLE"
        Range("A11").Select

      Application.ActiveWorkbook.Close()

  End Sub

当我运行这段代码时，它显示一条错误消息，指望已确定尺寸的数组

谢谢