Issues using If AND

What am I doing wrong with this?

If ActiveSheet.OLEObjects("CBClutch").TextFrame.Characters.Text = "Q1" And ActiveSheet.Shapes("CMDFilter").TextFrame.Characters.Text = "Filter" Then Range("B1608:L1609").Select Selection.AutoFilter ActiveSheet.Range("$B$1608:$L$1714").AutoFilter Field:=8, Criteria1:="<>" ActiveSheet.Shapes("CMDFilter").TextFrame.Characters.Text = "Un-Filter" Range("A1604").Select Else Range("B1608:L1609").Select Selection.AutoFilter Range("A1604").Select ActiveSheet.Shapes("CMDFilter").TextFrame.Characters.Text = "Filter" End If