determine the name of the selected pivot table

  • Thread starter Thread starter Tim879
  • Start date Start date
T

Tim879

does anyone know how to determine the name of the pivot table the user
has selected.

I have code I want to run against the selected pivot table however the
name of the pivot table is not constant nor is it always the first
pivot table on a given sheet.

Thanks
Tim
 
As answered in .programming:

You can test if the active cell is in a pivot table, and if it is, get
the pivot table name:

Sub test()
Dim pt As PivotTable

On Error Resume Next
Set pt = ActiveCell.PivotTable

If pt Is Nothing Then
Debug.Print "Active cell is not in a pivot table"
Else
Debug.Print ActiveCell.PivotTable.Name
End If

Set pt = Nothing
End Sub
 
Back
Top