Hi Booshi

This code will let you group the dates the way Tom
suggests. You can find a full explanation in the VB HELP
under GROUP METHOD look in the range object explanation.

PT.PivotSelect "date[All]", xlLabelOnly

Selection.Group Start:=True, End:=True, Periods:=Array
(False, False, False, _
False, True, False, True)

where PT is a global variable set to the current pivot
table.