Pivot SubTotals - Request help
 

I am trying to use the code below to put subtotals in 2 of 4 pivot
tables. Pivot Tables 1 and 3 have subtotals, and Tables 2 and 4 do
not. All 4 tables are in the same worksheet. The code creates
subtotals for Table 1, no subtotals for Table 2 (as desired), but when
the code processes Table 3, the subtotals for Table 1 get turned off.

Any advice to resolve this would be appreciated.


Thank you!


================================================


Public Sub GroupDates()


Select Case pt.Name
Case "Costs", "Revenues",
ShowSub = False
Case "Interest Only", "LoanAmount"
ShowSub = True
End Select


If ShowSub Then
Set rng = pt.PivotFields("ReportingDate").DataRange
MyArray = Array(False, False, False, False, True, True, True)
rng.Cells(1).Group Start:=True, End:=True, Periods:=MyArray
For Each pf In ActiveSheet.PivotTables(pt.name).RowFields
pf.Subtotals(1) = True
Next pf
End If