VBA: returning subtotal range of pivot tables?????

D

doog

I need my pivot tables to retain formatting after they are refreshed.
So, I have a VBA module that does this by applying custom styles. It
returns (calls) particular ranges in the pivot table and applys a
particular custom style to each range. But, I can't figure out how to
do this to subtotals. How do you return (select/call) a subtotal range
from a pivot table???

I found this on the net but it does nothing for subtotals!:

Sub ApplyStyles()
With ActiveSheet.PivotTables(1)
TableRange1.Style = "PivLabel" '\ style for cells above row area of
table
DataBodyRange.Style = "PivData" '\ style for data area
RowRange.Style = "PivRow" '\ row area
ColumnRange.Style = "PivColumn" '\ column headings
TableRange1.EntireColumn.AutoFit '\ adjust row and cell heights to fit
new style
End With
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top