Vba - Pivot Table Subtotals - Show Calculation

[MikeL]

Hello,
I am using VBA to add Subtotals to certain columns
ActiveSheet.PivotTables("PivotTable1").PivotFields("AMOUNT").Subtotals
Can this be modified so when user selects a subtotal cell in the pivot, the formula shows ie B2:B10 and not just the value.

Thanks,