VBA Filtering PivotField - Error Unable to get the objects property of the worksheet class

I'm a newbie to VBA and trying to use VBA to filter PivotField name 'Zone' on a PivotTable, but I'm getting the 'run time error 1004: unable to get the objects property of the worksheet class' on line 'Set pf = pt.PivotFields("Zone")'. Things I already tried:

- Checked the PivotTable Name 'TrackingTable' and Field name 'Zone' on tab PivotTable Analyze and Field Settings, and it's correct
- Tried to check the field names by code

Sub CheckFields()
Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables("TrackingTable")

For Each pf In pt.PivotFields
Debug.Print ("TrackingTable")
Next
End Sub

- Tried to refresh pivot cache by code


Sub RefreshAllPivotCaches()

Dim wb As Workbook
Dim lPCs As Long
Dim lPC As Long
Dim lProb As Long

Set wb = Application.ThisWorkbook
lPCs = wb.PivotCaches.Count

For lPC = 1 To lPCs
wb.PivotCaches(lPC).Refresh
If Err.Number <> 0 Then
MsgBox "Could not refresh pivot cache " & lPC _
& vbCrLf _
& "Error: " _
& vbCrLf _
& Err.Description
Err.Clear
lProb = lProb + 1
End If
Next lPC

MsgBox "Refresh is complete. " _
& vbCrLf _
& "Pivot Cache Count: " & lPCs _
& vbCrLf _
& "Failed refreshes: " & lProb

End Sub

But it keeps giving me the same error. Could someone help me? It's a simple problem, but there's something I'm not seeing.

My code:

Sub FilterDA6()


Dim pt As PivotTable
Dim pf As PivotField
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Tracking")

Set pt = ws.PivotTables("TrackingTable")
Set pf = pt.PivotFields("Zone")

pf.ClearAllFilters

pf.PivotFilters.Add Type:=xlCaptionEquals, Value1:="DA6"

Set pt = Nothing
Set pf = Nothing
Set ws = Nothing

```

End Sub

Note: Im using Excel 2016

Hi Diana,

what about sample file?

BR, Alexandra

Hi Alexandra.
Here is an example file.

Hi Diana,

you code is OK:

Sub FilterDA6_2()
Dim pt As PivotTable
Dim pf As PivotField
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Tracking")

Set pt = ws.PivotTables("TrackingTable")
Set pf = pt.PivotFields("Zone")

pf.ClearAllFilters

pf.PivotFilters.Add Type:=xlCaptionEquals, Value1:="DA6"

Set pt = Nothing
Set pf = Nothing
Set ws = Nothing


End Sub

But you pivot was a little bit uncorrect builded, so i build a new one and now it´s works!

BR, Alexandra

Alexandra, thank you very much for your attention, but even in your file when running the macro "Sub FilterDA6_2()", I still get the "run time error 1004 unable to get the pivotfields property of the pivottable class" on the line: Set pf = pt.PivotFields("Zone"). Could it be an error related to the cache?

Hi Diana,

so if you open my file and you run directly the macro in my file without change anything, the problem is stil there?

br, Alexandra

Thanks MikeVol!

Yes, even after downloading the file and not changing anything on table/pivottable or VBA, I still get the same error, according to print.
But I appreciate the help. Thanks also MikeVol, for the feedback.
Attachment 891860