PivotTableのデータソースを一括変更するVBA

色んなサイトから既出ソースを拝借して試していますが、どのソースもプロシージャのエラーが出て難航しています。

データソースに"A"というNamedTableを指定したピボットテーブルが多数あり
その全てにおいてデータソースを"B"というNamedTableに変更したい

一案として下記を試していますが、やはり pt.ChangePivotCacheにプロシージャエラーが出ます。

何がいけないのかご指南頂ければ幸いです。
よろしくお願いいたします。

Sub Change_Pivot_Source()

Dim pt As PivotTable

For Each pt In ActiveWorkbook.Worksheets("データソースを変更したPivotTableがあるシート名").PivotTables
pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:="B")
Next pt

End Sub

質問者からの補足コメント

• 試して頂きありがとうございます。
  
  確かに自分でも他のデータセットを用意して試したら行けました。
  データソースそのものに問題があるようで…もはや断念するしかなさそうです。
  考えられる要因としては空白のセルが要所要所にあるところくらいですが、
  これは元データも同様なので…VBAだと極端にセンシティブになるのか…

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2019/05/22 14:55

No.4 回答者： komugi3333 回答日時： 2019/05/23 09:39

あ！ごめんなさい。

「上か下かに大きくなって・・・」は「右か下かに大きくなって・・・」の間違いでした。

No.3 回答者： komugi3333 回答日時： 2019/05/23 09:37

あと、ソースが変わることでピボットの結果の表が上か下かに大きくなって、例えば、1つのシートにピボットがいくつもあると、他のピボットのエリアと重なることになってしまってエラー・・・ですとか・・・。

No.2 回答者： komugi3333 回答日時： 2019/05/23 09:33

どこかの列が非表示になっていて列名が抜けているとか、数式が入っているけど列名だけが抜けているとか、思わぬ結合が含まれていた、とかないでしょうか？

一度、オリジナルのソースの表を別のシートかブックに形式を選択して貼り付けにて、「値」で貼り付けして、それをソースに名前の定義と複数ピボットの作成をして、テストしてみたらどうなるでしょうか？

No.1 回答者： komugi3333 回答日時： 2019/05/22 13:39

こちらで、このまんまのコードをコピペし・・・、

・("データソースを変更したPivotTableがあるシート名")をピボットを２つ作ったシートの名前に変え、
・SourceData:="B"　の　B　の部分を、２つめの範囲定義した名前に変えてみたら、

・・・エラー無く実行でき、２つのピボットのソースもそのように変更・反映されていました。


2010の32bit でやりました。

”B”という名前のまんまだったら、全角・半角などの入力違いとかは、ないでしょうか？