Sub Add_Slicer()
Set SLCR = ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables("10A"), "Type").Slicers.Add(ActiveSheet, , "Type", "Type", 139.5, 648, 144, 198.75)
Set sc = SLCR.SlicerCache
Set thisPvt = sc.PivotTables(1) 'will fail if it's not linked to any pivot table.
For Each sht In ThisWorkbook.Sheets
For Each pvt In sht.PivotTables
If pvt.CacheIndex = thisPvt.CacheIndex Then sc.PivotTables.AddPivotTable (pvt)
Next pvt
Next sht
End Sub
Originally Posted by
predzer
BUT the pivot tables are still not connected.
How are you determining this?
Arethe pivot tables all in the workbook that the code is sitting in?
Reply With Quote