Pivot table - Unable to navigate to source data from pivot table

Hi All,

I got code to dynamically change the range of pivot table from one of the external website and below is the code:

Please Login or Register  to view this content.

The above code is taking source data range dynamically. But the problem is, if I double click on any row field, am getting pop up warning as below:
powarn.jpg

As per the pop up warning, am manually refreshing all the pivot tables as below:
pide.png

After searching over the internet, found that enabling "Save source data with file" from pivot table options --> Data fixes the issue but still I end up with same pop up warning everytime I close and open the workbook.
Pivot table options:
piop.jpg

I will be glad if I get some explanation that though VBA has below line of code to refresh pivot table, why get warning pop up and also possible fix.

Please Login or Register  to view this content.

It will be helpful if I get fix that works within VBA instead of me doing these settings manually everytime.

Regards,
Richa

I fixed the issue myself and here is the code. Hope it helps someone in future:

To refresh Pivot
Original Code:

Please Login or Register  to view this content.

Replaced with below:

Please Login or Register  to view this content.

To save source data, added below code:

Please Login or Register  to view this content.

Regards,
Richa