Grand Total Row Not Executing VBA Code as Intended

[boldcode]

Hello,

I am trying to fix my Macro so that the Grand Total Row of the Pivot Table is colored in Black and the font is in white.

Here is my Code:

ActiveSheet.PivotTables("rptInvestment").ColumnGrand
    With Selection.Interior
        .ColorIndex = 1
    End With
    With Selection.Font
        .Bold = True
        .ColorIndex = 2
    End With

 

[boldcode]

Solved: Grand Total Row Not Executing VBA Code as Intended

Thanks everyone, but I just figured it out.