Hide and show pivotfields with vba

Can you provide a sample workbook?

Example Spreadsheet.xlsmI hope this attachment works. I just made a quick example of basically what I am trying to do. This is my first time using the forum. Thanks for any help you can give.

Took me a while of messing around with it, but this should work:

Sub Test()
'
' Test Macro
' This is supposed to hide data 1 and then bring it back. Once I can do that I will modify it to work how I would like.
'

Dim tbl As PivotTable
Set tbl = Sheets("Pivot Table").PivotTables(1)
With tbl
    .PivotFields("Average of Data 1").Orientation = xlHidden
    With .PivotFields("Data 1")
        .Orientation = xlDataField
        .Name = "Average of Data 1"
        .Function = xlAverage
    End With

End With

End Sub

Thank you so much. I had looked for hours trying to figure this out. I modified the code to work with a check box. It worked like a charm

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Dim tbl As PivotTable
Set tbl = Sheets("Pivot Table").PivotTables(1)

If Sheets("Pivot Chart").CheckBox1.Value = False Then
With tbl
    .PivotFields("Average of Data 1").Orientation = xlHidden
End With
End If
If Sheets("Pivot Chart").CheckBox1.Value = True Then
With tbl
    With .PivotFields("Data 1")
        .Orientation = xlDataField
        .Name = "Average of Data 1"
        .Function = xlAverage
    End With

End With
End If
Application.ScreenUpdating = True
End Sub

So now I am trying to apply this to my chart at work and I am having trouble with the

Set tbl = Sheets("Pivot Table").PivotTables(1)

part of the formula. When setting it on another chart what property should I change and how would I find it?

Awesome! Glad I could help.

That code selects the 1st pivot table on the sheet "Pivot Table". Make sure the sheet name is right. Is your chart using a pivot table as a data source? If so, you can just change the pivot table and the chart will change. Otherwise you can do something like Sheets("Sheet Name").Charts(1) or Sheets("Sheet Name").Charts("Chart Name")

You are a genius. Thank you again.

You're more than welcome.