xxxxxxxxxx
With Sheets("Pivot").PivotTables(1)
.PivotFields("Person Activity For Group").Orientation = xlHidden
.PivotFields("Count of ID").Orientation = xlHidden
.PivotFields("ID").Orientation = xlRowField
.AddDataField .PivotFields("Days Open"), "Sum of Days Open", xlSum
End With