Sub pivotMacro() ' ' Macro2 Macro ' ActiveSheet.PivotTables("gmvPivot").PivotFields("BRAND").Orientation = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("BILLINGENTITY").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("CURRENCY").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("MONTH").Orientation = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("SOURCE").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("BUSINESSTYPE").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("CHANNELTYPE").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("TRANSACTIONS").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("ITEMQTY").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("TOTAL").Orientation = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("TAX").Orientation = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("BEFORETOTAL").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("BEFOREITEMQTY").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("BEFORETAX").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("TOTAL (USD)").Orientation = _ xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("Count of BRAND").Orientation _ = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("Count of BILLINGENTITY"). _ Orientation = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("Sum of TRANSACTIONS"). _ Orientation = xlHidden ActiveSheet.PivotTables("gmvPivot").PivotFields("Sum of TOTAL (USD)"). _ Orientation = xlHidden With ActiveSheet.PivotTables("gmvPivot").PivotFields("ACTION") .PivotItems("CANCEL").Visible = False .PivotItems("CREATE_FOR_AUTHORIZATION").Visible = False .PivotItems("FAIL").Visible = False End With With ActiveSheet.PivotTables("gmvPivot").PivotFields("ITEMTYPE") .PivotItems("GIFTCERT_REDEEMED").Visible = False .PivotItems("SHIPPING").Visible = False End With With ActiveSheet.PivotTables("gmvPivot").PivotFields( _ "Sum of TOTAL (In USD)") .Caption = "Sum of TOTAL (In USD)" .Function = xlSum End With End Sub