PivotItem loop with getpivotdata - hide pivotitem

[csutera]

Hi,
I'm trying to hide rows of a pivot table based on the sum of pivot items. The code works if I use the name of the pivot item in the getpivotdata function but does not work in a For Each PivotItem loop. Can you identify what I am doing wrong? The 1004 error occurs on line 1 of the loop

Dim Pv As PivotTable
Dim Pf As PivotField
Dim Pi As PivotItem
Dim PiL As PivotItem
Dim sum As Double

Set Pv = ActiveSheet.PivotTables(1)
Set Pf = Pv.PivotFields("Company")

  
For Each Pi In Pf.PivotItems
        sum = Pv.GetPivotData(" FY16 ($) Total", "Company", Pi)
        sum = sum + Pv.GetPivotData(" FY17 ($) Total", "Company", Pi)
        sum = sum + Pv.GetPivotData(" Future Est Val", "Company", Pi)
     If sum = 0 Then Pi.Visible = False
Next Pi

Example of Pivot Table example1.png
Update at 2:30 pm: this is a filtered page. Code works on the main sheet. Now I'm trying to get it to work on the filtered pages where Company1 may not exist. The code fails when Company1 does not exist.