VBA to remove all sub-totals in Pivot Table Fields

I want a macro i can run on a selected Pivot table, to set all pivot table field sub-totals to "None".
Excel has no default setting that i am aware of to set sub-totals to none, before or after creating a pivot table. Without individually selecting each field and setting to none.

The next level would be to show all feilds in a combo box, and select any or all to set to nothing etc.

Any help would be appreciated.

Just what i needed, thanks