How to use VBA Slicer to connect two PivotTable

[predzer]

Show report filter pages… only works for items in the Filter area (PageField areas) and then only for the filtered items there (see below for more on this).

Sub blah4()
Set pt = ActiveSheet.PivotTables("10A")
For Each pf In pt.PageFields
  pt.ShowPages pf
Next pf
End Sub

If you've ticked the check box Select Multiple Items in any of those field's dropdowns new sheets will only be generated for ticked items.

This is fine. I think you misunderstood my post.

I wanted to create a new slicer for each of the PageField areas.