Selecting a Pivot Table on a sheet and not caring about the name

[swade730]

Is there anyway to make it so that

ActiveSheet.PivotTables("PivotTable1").PivotSelect

the "PivotTable1" does not mater when selecting the Pivot table on a given sheet?

I plan to Filter Pivot tables to all sheets and have a code that Copies each pivot -after selecting the pivots respective sheet

[dflak]

Try

ActiveSheet.PivotTables(1).PivotSelect

Or in your bigger quest you can use something like

Dim pt As PivotTable
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
  For Each pt In ws.PivotTables
        ' Do your thing
  Next pt
Next ws

[swade730]

Thanks, Didn't consider your solutions, but seem good!

I ended up just copying the columns instead