Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Assign a value to the Orientation property of the PivotField object, as shown here

Sub AddFieldsToTable()          With ActiveSheet.PivotTables(1)              .AddFields RowFields:="State", AddToTable:=True              .PivotFields("Date").Orientation = xlPageField          End With      End Sub