How do i change SourceData for all pivots in workbook while disconnect/connect slicers?

Been stuck on this for a while and cant figure it out. I've looked online on various sites and havent found anything close to what i need. Here is what i need to do...

I have 6 Slicers in called "Quantrix" The slicers are called REG, DIRECTOR, AREA MANAGER, AOI, DMA, AG and CLOCK. I have 15 pivots (6 in Quantrix tab and 9 in a tab called "Pivots").

I have vba code to update all pivot cache (showing 1 pivot update below) ...

PHP Code: 

    Max = Sheets("eLink_Raw").Cells(Rows.Count, "A").End(xlUp).Row

    Sheets("Quantrix").PivotTables("Quantrix 1").ChangePivotCache ActiveWorkbook. _
      PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
      Sheets("eLink_Raw").Range("A1:AW" & Max).CurrentRegion _
      , Version:=xlPivotTableVersion14) 


Here is the code to disconnect SLICER, update source data for ALL pivots then reconnects slicer... This works great but its ONLY 1 SLICER

PHP Code: 

 Dim vPivots As Variant
    Dim i As Long

    Max = Sheets("eLink_Raw").Cells(Rows.Count, "A").End(xlUp).Row

    With ActiveWorkbook.SlicerCaches("Slicer_REG").PivotTables
        If .Count = 0 Then Exit Sub
        ReDim vPivots(1 To .Count)

        For i = .Count To 1 Step -1
            Set vPivots(i) = .Item(i)
            .RemovePivotTable (.Item(i))
        Next i

        For i = 1 To UBound(vPivots)
            If i = 1 Then
                vPivots(1).ChangePivotCache _
                    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                    SourceData:=Sheets("eLink_Raw").Range("A1:AW" & Max).CurrentRegion)
            Else
                vPivots(i).CacheIndex = vPivots(1).CacheIndex
            End If
            .AddPivotTable vPivots(i)
        Next i
    End With 


How can i disconnects ALL Slicers, change source data for ALL Pivots then reconnect ALL slicers?

I'm stuck. Any help will be greatly appreciated!

.......bump

Thanks for the reply Izandol!

I did get a debug, "Application-defined or object-defined error", at the following code after it went through all the spreadsheets updating the pivot cache:

PHP Code: 

          PT.CacheIndex = lIndex 


All Slicers disconnected beautifully

It doesnt say, where will i see that?

Ok, it got past the previous part and now getting debug "run time error 424 object required' on last line of code here:

PHP Code: 

   For Each vItem In vSlicers
      If oDic.Exists(vItem) Then
         vPivots = Split(oDic(vItem), "|")
         With ActiveWorkbook.SlicerCaches("Slicer_" & vItem).PivotTables
            For i = LBound(vPivots) To UBound(vPivots)
               .AddPivotTable vPivots(i) 


vItem="REG" and vPivots(i)= "Quantrix 6"

Just ran it and it gave me a run time error on the same line, after it reconnects the slicers to the pivots in my "Quantrix" sheet it gives me a...

Run-time error '1004'; Unable to get PivotTables property of the Worksheet class

I changed it to "Pivots" which is where my other pivots are in and it kept running until it came time to do the next slicer. Had to change it to Quantrix then Pivots and so on.

Stops here at the bottom of this code:

PHP Code: 

    Dim PT                          As PivotTable
    Dim ptMain                      As PivotTable
    Dim ws                          As Worksheet
    Dim oDic                        As Object
    Dim sPivots                     As String
    Dim i                           As Long
    Dim lIndex                      As Long
    Dim Max                         As Long
    Dim vPivots
    Dim vSlicers
    Dim vItem

   vSlicers = Array("REG", "DIRECTOR", "AREA_MANAGER", "AOI", "DMA", "AG", "CLOCK")
   Set oDic = CreateObject("Scripting.Dictionary")

   Max = Sheets("eLink_Raw").Cells(Rows.Count, "A").End(xlUp).Row
   For Each vItem In vSlicers
      With ActiveWorkbook.SlicerCaches("Slicer_" & vItem).PivotTables
         If .Count > 0 Then

            For i = .Count To 1 Step -1
               sPivots = sPivots & "|" & .Item(i).Name
               .RemovePivotTable .Item(i) 


.Item(i)= "Fut Week 2"
(1)= 15

I really appreciate all your help thus far!

Izandol,
Tried it with a clean, archived workbook and it worked beautifully. You are genius!!!!

Thank you, thank you, thank you!

I'm a noob but trying to learn...

I don't really know how this one is working... what should I replace in this piece of code (beside the name of the spreadsheet with all my slicers)?

thank you a lot

Intresting, i am dealing with multiple slicers(more than 60) and do not have control over names...how can i make code dynamic for slicers that can disconnect, update and reconnect.