VBA for Pivot Table Subtotals

[storm925]

Hi All,

Wanted to know if anyone can help me with the following VBA for a pivot table, which is not working...

With ActiveSheet.PivotTables("PivotTable1").PivotFields("ACCT_DESC").Subtotals
     .Font.Bold = True
End With

I'm trying to avoid using ".PivotSelect", which is what you get when you record. Thank you for reading my post and any help would be greatly appreciated. --Ben

 

[DanteAmor]

You can put the code you got when you recorded the macro.