Pivot table cell names

Jakub99 The method to fix this depends on the type of pivot table.

1. Data model pivot tables:

Record a macro while filtering your field for just the renamed item, you get VBA code which will reveal the original item name. The recorded code will look similar to this:

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Range].[b].[b]"). _
        VisibleItemsList = Array("[Range].[b].&[e]")
End Sub

The item name is the last bit between square brackets: [e], so you can use that to rename the pivot item back.

If your pivottable is a regular (old-style) one, you must write some code yourself. The code below restores the name of a pivotitem of pivot field "b" in pivottable "PivotTable2" which was renamed to "wfewfeferf":

Sub Macro2()
'
' Macro2 Macro
'

'
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("b").PivotItems("wfewfeferf")
        .Caption = .SourceName
    End With
End Sub