Pivot - Removing Calculated Field

[justdream]

Dears,

Please support - I've problem in creating macros for pivot table
exactly in doing remove field in the calculated items as shown below

This is the code that give me errors:

ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of CDN").Orientation = _
xlHidden