Excel vba Pivot table - Sort Field based on Custom Sort

[Biz]

Hi,

I feel I have another difficult question.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
I have custom sort list in Sheets(“Custom List”) and created a Named Range as cSortList.<o></o>
<o> </o>
How can I do custom sort List Field in Pivot Table using my custom sort list using Excel VBA?<o></o>
<o></o>
<o>

Sub SortIt()
Dim rOrderCustom
rOrderCustom = Sheets("Custom Sort").Range("cSortList").Value
ActiveSheet.PivotTables("PivotTable1").PivotFields("List").Sort _
        OrderCustom:=rOrderCustom.Value
End Sub

</o>
<o></o>
I tried creating a code with no results.<o></o>

Biz

 

[RoryA]

You have to add the list to the custom lists in Excel Options. You then specify the list number in the code.