Autosort Script

[AtomicWedgie]

Hello,

is there maybe a script available to set all fields to autosort that are used in a Pivot Table?

Regards,

Atomic Wedgie

 

[AtomicWedgie]

Ok,

maybe not the best solution but I came up with this

Sub AutoSortAllPivotFields()

Dim Pivotname As String
Dim ItemCount As Integer
Dim PivotField As String
Dim Count As Integer

Count = 1
Pivotname = ActiveSheet.PivotTables.Item(1).Name
ItemCount = ActiveSheet.PivotTables(Pivotname).PivotFields.Count


Do While Count <= ItemCount

PivotField = ActiveSheet.PivotTables(Pivotname).PivotFields.Item(Count).Value

If PivotField = "Data" Then GoTo Skip

ActiveSheet.PivotTables(Pivotname).PivotFields(PivotField).AutoSort _
xlAscending, PivotField

Skip:

Count = Count + 1

Loop
End Sub