AutoShow Method Example
This example shows only the top two companies, based on the sum of sales:
ActiveSheet.PivotTables("Pivot1").PivotFields("Company") _ .AutoShow xlAutomatic, xlTop, 2, "Sum of Sales"