VBA Code to Deselect a Field

[OilEconomist]

Thanks in advance for any suggestions for which I will give feedback.

Why is the following code not executing? I would like to deselect "Test" which exists in the Pivot Table.

Sub Macro7()


Dim ShtNameOld As String


ShtNameOld = "Test"






    ActiveSheet.PivotTables("PivotTable1").PivotFields(ShtNameOld). _
        Orientation = xlHidden
        
        
End Sub

 

[DanteAmor]

Works!
The field must be in the Rows Area

 

[OilEconomist]

Thank you so much DanteAmor! As always you are very helpful.

After hours of troubleshooting I figured out I was missing "Sum of" to where the code should be as follows:

    ActiveSheet.PivotTables("PivotTable1").PivotFields([COLOR=#ff0000][B]“Sum of “[/B][/COLOR] & ShtNameOld). _
        Orientation = xlHidden

Versus the following

    ActiveSheet.PivotTables("PivotTable1").PivotFields(ShtNameOld). _
        Orientation = xlHidden

 

[DanteAmor]

Thank you so much DanteAmor! As always you are very helpful.

After hours of troubleshooting I figured out I was missing "Sum of" to where the code should be as follows:

    ActiveSheet.PivotTables("PivotTable1").PivotFields([COLOR=#ff0000][B]“Sum of “[/B][/COLOR] & ShtNameOld). _
        Orientation = xlHidden

Versus the following

    ActiveSheet.PivotTables("PivotTable1").PivotFields(ShtNameOld). _
        Orientation = xlHidden

I'm glad to know you found the problem. regards