asked on
Sub PivotTableGroupData1()
Dim PvtTbl As PivotTable
Dim rngGroup As Range
Set PvtTbl = Worksheets("Data Chart").PivotTables("PivotTable1")
'set range of dates to be grouped
Set rngGroup = PvtTbl.PivotFields("Dates").DataRange
rngGroup.Cells(1).Group Periods:=Array(False, False, False, False, True, False, False)
'to ungroup:
'rngGroup.Cells(1).Ungroup
End Sub