I'm trying to generate a list of pivot tables within a worksheet, along with their cell location. I found this code online, but can't find where it's printing the information...


Sub list_all_pivottables_on_worksheets_with_more_than_one_pivotable()
For Each ws In Worksheets
If ws.PivotTables.Count > 1 Then
For Each pt In ws.PivotTables
Debug.Print ws.Name & ":" & pt.Name
Next pt
End If
Next ws
End Sub


It'd be ideal for me to have this list, with PT name and location, printed into a clean worksheet.

Thanks for the help!