VBA : Updating Pivot Source = Lost Slicer Connection

Hi All,

Wondering if someone can help...
I just started playing around with using VBA on manipulating PivotTables and Slicer.

Currently I have the following on my workbook...

• 6 x Worksheets containing pivot tables only
• 1 x Worksheet that contains a slicer ("Slicer_SERVICE_TYPE") that has a PivotTable Connection to the 6 other worksheets

Slicer is created and working fine but when I run my code I lose all the PivotTable Connections.

I got the Pivot Table updating successfully using VBA Code:

Please Login or Register  to view this content.

Is there a way I can fix this?
Am I missing one line of code?

I've searched everywhere and could not find any results specifically to my issue.

Thanks in Advance!