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
Bookmarks