AutoShow Method [Excel 2003 VBA Language Reference]
Displays the number of top or bottom items for a row, page, or column field in the specified PivotTable report.
expression .AutoShow(Type, Range, Count, Field)
expression Required. An expression that returns one of the objects in the Applies To list
Type Required Long. Use xlAutomatic to cause the specified PivotTable report to show the items that match the specified criteria. Use xlManual to disable this feature.
Range Required Long. The location at which to start showing items. Can be either of the following constants: xlTop or xlBottom.
Count Required Long. The number of items to be shown.
Field Required String. The name of the base data field. You must specify the unique name (as returned from the SourceName property), and not the displayed name.
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"