问运行时错误“1004”应用程序定义或对象定义错误VBA代码

EN

Sub Newnew()

Workbooks("CCP Quick Reference Guide.xls").Activate
Workbooks("CCP Quick Reference Guide.xls").Worksheets("Data").Select

'Dim xx As String
'Dim yy As String
'Dim zz As String



    If Cells(3, 2).Value = "" Then
        'Nothing
    Else
        xx = Cells(3, 2).Value
        Range("A6").Select
        Selection.AutoFilter
        ActiveSheet.Range("$A$6:$I$1000").AutoFilter Field:=1, Criteria1:=xx
    End If


    If Cells(3, 3).Value = "" Then
        'Nothing
    Else
        yy = Cells(3, 3).Value
        Range("A6").Select
        ActiveSheet.Range("$A$6:$I$1000").AutoFilter Field:=4, Criteria1:=yy
    End If


    If Cells(3, 4).Value = "" Then
        'Nothing
    Else
        zz = Cells(3, 4).Value
        Range("A6").Select
        ActiveSheet.Range("$A$6:$I$1000").AutoFilter Field:=5, Criterial:=zz
    End If



End Sub