Pivot Table Or Pivot Chart

T

tsluu

Does anyone know the vba code to Hide pivotTable fields list window

With Forms.Item("pvtForm").PivotTable.ActiveView
Set fld = .FieldSets("Code")
.RowAxis.InsertFieldSet fld
Set fld = .FieldSets("Desc")
.RowAxis.InsertFieldSet fld
Set fld = .FieldSets("Dept")
.RowAxis.InsertFieldSet fld
Set fld = .FieldSets("Cost")
.DataAxis.InsertFieldSet fld
end with

Also I would like the know the vba code to collapse the "Dept" row so that
it only showed the summary.

Thanks
 
Top