Hi you can do this with VBA, place this code in a module:
Cheers![]()
Sub PivotTable_FieldsItems() Dim PvtTbl As PivotTable Dim pvtFld As PivotField Dim strPvtFld As String Set PvtTbl = Worksheets("Sheet5").PivotTables("PivotTable1") '<---- Edit For Each pvtFld In PvtTbl.RowFields strPvtFld = strPvtFld & ", " & pvtFld.Name Next Worksheets("Sheet5").Cells(16, 1) = "Row Labels" Worksheets("Sheet5").Cells(16, 2) = Mid(strPvtFld, 3) End Sub
Erwin
Bookmarks