Piovt Table Sorting

[brawnystaff]

I use the macro below to sort a Pivot table descending based on the value cell I have selected in Pivot Table value section, regardless of how many Row Labels there are. It works for a standard Pivot Table, but not one that has been added to the Data Model. Any ideas as to what needs to be changed?

Sub SortAllRowFields_ZASelVal()
'select the Value field that
' the sort will be based on
Dim pt As PivotTable
Dim pf As PivotField
Dim df As PivotField
Dim strVal As String

On Error Resume Next
Set pt = ActiveCell.PivotTable
If pt Is Nothing Then Exit Sub
Set df = ActiveCell.PivotField
MsgBox df
If df.Orientation <> xlDataField Then
  MsgBox "Please select a Values field"
  Exit Sub
Else
  strVal = df.Caption
End If
For Each pf In pt.RowFields
  pf.AutoSort xlDescending, strVal
Next pf
MsgBox "Row fields were sorted Z-A " _
  & vbCrLf _
  & "based on the Value field: " _
  & vbCrLf _
  & strVal
End Sub

 

[SpillerBD]

try

Dim pf as PivotField[COLOR=#0000ff]s[/COLOR]

(?)

 

[brawnystaff]

Added the "s" and ran macro...Nothing..

 

[SpillerBD]

hmm. My suggestion was from macro-recording applying a Sort to a Data-Model-Pivot Table.
That was the first thing I saw and expected it to cascade. I won't get a good chance to see again until tomorrow (Saturday)