I have slicers set up that connect to multiple pivot tables on my sheets. When I copy these sheets to a new workbook using VBA, these slicers no longer connect to the pivot tables. Anyone know how to fix?
Sub Main()
Dim wbO As Workbook, wbN As Workbook
Set wbO = ActiveWorkbook
Set wbN = Workbooks.Add
Application.DisplayAlerts = False
Sheet1.Copy wbN.Sheets(1)
Sheet2.Copy wbN.Sheets(2)
Sheet17.Copy wbN.Sheets(3)
Sheet3.Copy wbN.Sheets(4)
Sheet13.Copy wbN.Sheets(5)
Sheet4.Copy wbN.Sheets(6)
Sheet5.Copy wbN.Sheets(7)
Sheet6.Copy wbN.Sheets(8)
Sheet7.Copy wbN.Sheets(9)
Sheet11.Copy wbN.Sheets(10)
Sheet15.Copy wbN.Sheets(11)
wbN.Sheets("Sheet1").Delete
wbN.Sheets("Sup Detail Daily").Activate
wbN.SaveAs Filename:="\\SP16.ccc.abc.com@SSL\Dav\sites\Staff\Daily Points Production Report.xlsx", WriteResPassword:="bassinn1", ReadOnlyRecommended:=True
If wbO.CanCheckIn = True Then
wbO.CheckIn
Else
End If
wbN.Close
End Sub
Sub Main()
Dim wbO As Workbook, wbN As Workbook
Set wbO = ActiveWorkbook
Set wbN = Workbooks.Add
Application.DisplayAlerts = False
Sheet1.Copy wbN.Sheets(1)
Sheet2.Copy wbN.Sheets(2)
Sheet17.Copy wbN.Sheets(3)
Sheet3.Copy wbN.Sheets(4)
Sheet13.Copy wbN.Sheets(5)
Sheet4.Copy wbN.Sheets(6)
Sheet5.Copy wbN.Sheets(7)
Sheet6.Copy wbN.Sheets(8)
Sheet7.Copy wbN.Sheets(9)
Sheet11.Copy wbN.Sheets(10)
Sheet15.Copy wbN.Sheets(11)
wbN.Sheets("Sheet1").Delete
wbN.Sheets("Sup Detail Daily").Activate
wbN.SaveAs Filename:="\\SP16.ccc.abc.com@SSL\Dav\sites\Staff\Daily Points Production Report.xlsx", WriteResPassword:="bassinn1", ReadOnlyRecommended:=True
If wbO.CanCheckIn = True Then
wbO.CheckIn
Else
End If
wbN.Close
End Sub