Add existing calculated field to Pivot Table

[Damkilde1986]

Good day,

I am trying to Toggle On/Off in a Pivot Table. I have a calculated field which already exist in the Pivot Table, but cant get it to work. Below works with a DataField.

Name of the existing Calculated field is "Weighted Changeover %".

Can some of you assist?

Thanks a million!


Private Sub ToggleButton2_Click()

If ToggleButton2.Value = True Then
ToggleButton2.Caption = "Changeover On"
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Changover,%"), "Sum of Weighted Changeover %", xlSum


Else
ToggleButton2.Caption = "Changeover Off"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Weighted Changeover %").Orientation = xlHidden


End If
End Sub