' Exchange rows and columns of selected Pivot Table ' Source: UniversitŠ´ts-Rechenzentrum Trier ' http://www.uni-trier.de/urt/user/baltes/docs/saxbasic/saxbasic.htm Option Explicit Sub Main Dim objPivotTable As PivotTable Dim objItem As ISpssItem Dim bolFoundOutputDoc As Boolean,bolPivotSelected As Boolean Call GetFirstSelectedPivot(objPivotTable,objItem,bolFoundOutputDoc,bolPivotSelected) If (bolFoundOutputDoc=False) Or (bolPivotSelected=False) Then Exit Sub End If objPivotTable.PivotManager.ColumnDimension(0).MoveToRow(1) objPivotTable.PivotManager.RowDimension(0).MoveToColumn(0) objItem.Deactivate End Sub