在表单中有一个数据透视表2，现在想通过VBA来实现对数据透视表2第一个字段的值进行匹配筛选。但是每次使用ADD函数时，总会报错

Private Sub Worksheet_Activate()

Dim pvt As PivotTable

Set pvt = ActiveSheet.PivotTables("数据透视表2")
    pvt.AllowMultipleFilters = True

    With pvt.PivotFields(1)
        .ClearAllFilters
        .PivotFilters.Add Type:=xlValueEquals, DataField:=ActiveSheet.PivotTables("数据透视表2").PivotFields(1), Value1:="张三"

    End With

End Sub