Pivot Table Formatting

[Gary]

I wish to format subtotals in a pivot table using VBA. I know I can access all of the data from the "DataFields" property of a pivottable object, but how can I access the sub totals only

Thank you
Gary