VBA code to fill rows with subttoal in pivot table .

Hi All,
How to fill rows with subtotal with color in pivot table?
Thank You.

Ishwarind-Not sure if Excel 2010 has this option.
But do check out my picture attachments?Capture1.png
Capture2.png
Capture3.png

Ho to I execute this using VBA?

Is VBA required for this? I think you can save this as one of the PivotStyles

I am creating a macro. This need to executed as a part of macro.
I have created macro. Only thing balance is this one.
To fill the rows with total till last used column in created pivot table.

Hi FarEast07,
Done. have recorded the macro of formatting the subtotals.
First selected all the Subtotal rows by hovering mouse over first subtotal row (left upper corner of cell: black arrow pointing towards right).
This selected all the subtotal rows and then filled them with required color.
Thank you for the time.