I've created a Pivot Table with 30+ fields. I've recorded the following macro to add the first field. I need help modifying the code so that it looks for and adds every field automatically. It'd save a lot of time.
Code:
Sub PTAdd()
'
' PTAdd Macro
'
'
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Assigned To")
.Orientation = xlRowField
.Position = 1
End With
End Sub