' Listing 1: Excerpt from the XLPivotTable Subroutine

xllastcell = Xl.Cells.SpecialCells(11).Address
XL.Sheets.Add.Name = "LockedStatus"
XL.Sheets(xldata).Select
XL.ActiveSheet.PivotTableWizard xlDatabase,XL.Range("A1" & _
  ":" & xllastcell),"LockedStatus!R1C1",xldata

' ******* BEGIN CALLOUT A *******

XL.ActiveSheet.PivotTables(xldata).PivotFields("Account Locked").Orientation = 1
XL.ActiveSheet.PivotTables(xldata).PivotFields("UserID").Orientation = 1
XL.ActiveSheet.PivotTables(xldata).PivotFields("Disabled Account").Orientation = 1
XL.ActiveSheet.PivotTables(xldata).PivotFields("Account Locked").Orientation = 4
XL.ActiveWorkbook.ShowPivotTableFieldList = False
XL.Application.CommandBars("PivotTable").Visible = False

' ******* END CALLOUT A *******

' ******* BEGIN CALLOUT B *******

XL.ActiveSheet.PivotTables(xldata).PivotFields("Account Locked").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)
XL.ActiveSheet.PivotTables(xldata).PivotFields("UserID").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)
XL.ActiveSheet.PivotTables(xldata).PivotFields("Disabled Account").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)

' ******* END CALLOUT B *******

' Show only locked accounts (value = Yes).
XL.ActiveSheet.PivotTables(xldata).PivotFields("Account Locked"). _
  PivotItems("No").Visible = False
XL.Cells.EntireColumn.AutoFit