Loop through values in a pivottable and show/hide detail based on condition

[Truth_Is_A_Person]

here is my code that used to work, but for some reason now, it is not hiding the detail...

    For r = TopOfPivotTable To BottomOfPivotTable
   
        If Cells(r, 2).Value = "1" Then
            fname = Cells(r, 1).PivotField.Name
            Worksheets("Execution for RCA").PivotTables("PivotTable4").PivotFields(fname).PivotItems(Cells(r, 1).Text).ShowDetail = False
        Else
            fname = Cells(r, 1).PivotField.Name
            Worksheets("Execution for RCA").PivotTables("PivotTable4").PivotFields(fname).PivotItems(Cells(r, 1).Text).ShowDetail = True
        End If
        
        'double check incase the bottom row changes
        If InStr(Cells(r + 1, 1).Text, "Grand") Then Exit For
     
    Next r

essentially i am checking the Percent executed in column B and if it is 100 then hide the detail, if it is any other value then show the detail.

 

[Truth_Is_A_Person]

links to images of my pivot table and fields

https://imgur.com/UXpBPUT
https://imgur.com/ZPn6C1U

 

[Truth_Is_A_Person]

i fixed it, i had declared fname as a string - when i commented out that declaration it worked perfectly. Moral of the story. data types matter(?)