Hello,

Using MS Office 2003 on Mac & I am getting Compile Syntax Error and my Sub Name is being highlighted YELLOW & all those rows listing the Autofilter Actions are highlighted RED. It not even executing the first action, the column Insert.

Could someone please take a look & let me know if anything is obviously wrong - maybe I've been looking at it too long.

Greatly appreciate your help & insight.

Sub FirstUpDownInClass()
'
' FirstUpDownInClass Macro
'
'
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Pattern"
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=63, Criteria1:=Array( _
        "#DIV/0!", "#N/A", "0"), Operator:=xlFilterValues
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=34, Criteria1:=">=71", _
        Operator:=xlAnd
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=61, Criteria1:=">=0.2" _
        , Operator:=xlAnd
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=62, Criteria1:=">=0.4" _
        , Operator:=xlAnd
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=57, Criteria1:="<=3", _
        Operator:=xlAnd
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=73, Criteria1:="<=7", _
        Operator:=xlAnd
    ActiveSheet.Range(“$A$1:$CY$25000”).AutoFilter Field:=7, Criteria1:="<=-2000", _
        Operator:=xlAnd
        
    Dim a1 As Range
    Dim a2 As Range, a As Range
    Dim a3 As Range

    Set a1 = Range("E1:E25000").SpecialCells(xlCellTypeVisible)
    Set a2 = a1.SpecialCells(xlCellTypeConstants, 23)
    Set a3 = a1.SpecialCells(xlCellTypeBlanks)
    For Each a In a2.Cells
        a = a & "//FirstUpDownClass"
    Next a
    a3 = "FirstUpDownClass"
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter
End Sub