VBA expand all pivot table fields in Excel 2010

[Rowland Hamilton]

Folks:

How do you write a macro to expand all pivot table fields in Excel 2010.
Hit + buttons on all like when recorded for just this one:

ActiveSheet.PivotTables("PivotTable2").PivotFields( _
"Cost Center").PivotItems("77194").ShowDetail = True

Thanks, Rowland