Pivot Table Name - Looking for a formula that can identify the PT and put into a cell

[mikeannetta]

Have a sheet with many Pivot Tables and I would like to put The name of the pivot Table to make it easier to fix issues?

 

[bobsan42]

something like this, if i understood you correctly:

Sub namesPT()
    Dim pt As PivotTable
    For Each pt In ActiveSheet.PivotTables
        pt.TableRange1.Resize(1, 1).Offset(-1).Value = pt.Name
    Next pt
End Sub