ExcelVBAでピボットテーブルを昇順で並び替える

VBAで特定のフィールドを昇順で並び替える

'任意のFieldsを昇順に並び替える
'引数１：シート名
'引数２：ピボットテーブル名
'引数３：フィールド名←昇順で並び替える

Private Sub S_SortPivot(ByVal arg_sortSheetName As String, arg_sortPivotName As String, ByVal arg_sortFieldsName As String)
    
    Dim sortSheet As Worksheet
    Set sortSheet = ActiveWorkbook.Worksheets(arg_sortSheetName)
    
    With sortSheet.PivotTables(arg_sortPivotName).PivotFields(arg_sortFieldsName)
        .AutoSort xlAscending, arg_sortFieldsName
    End With
    
End Sub