『VBAでピボットテーブルの自動更新』（ノリえもん）

VBAでピポットテーブルの更新をしたいのですが、
下記の記述の３行目で「424エラー オブジェクトが必要です」となります。
意味がよくわかりません。
助けてください。よろしくお願いいたします。

[ソースデータ]シートを元データ（行範囲が可変）として
ピボットテーブル２を更新します。


Dim A As Range
Set A = Worksheets("ソースデータ").Range("A1").CurrentRegion
ActiveSheet.PivotTables(2).ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(xlDatabase, A)



＜ 使用 Excel：Excel2010、使用 OS：Windows10 ＞
----
こちらでは、正常動作して、
そのエラーコードを出すような状況に思い至りません。

元にもどって、特定範囲のデータ範囲を対象とする
データソース変更の動作をマクロ記録してみてはいかがですか？
どうなりますか？
それをもとに、Rangeオブジェクトを指定するよう
徐々に修正していったらよいのでは？
（γ） 2022/01/06(木) 16:23
----
 想像出来るエラー原因は、
 ピボットテーブルのあるシートがアクティブになっていないとか
 "ピボットテーブル２"という名前のピボットテーブルは ActiveSheet.PivotTables(2) ではない
  （ピボットテーブル１という名前のピボットテーブルを削除したとか）
 でしょうかね
（´・ω・`） 2022/01/06(木) 17:28
----
 >424エラー オブジェクトが必要です
 これって、オブジェクト変数じゃない変数にプロパティを記述した場合に出るエラーですよね。
 
    Sub test()
        Dim v As Variant
        Set v = Cells(1, 1)
        Debug.Print v.Address
        Let v = Cells(1, 1)
        Debug.Print v.Address '←ここ
    End Sub
 
 う〜ん。再現できない...
 
（白茶） 2022/01/06(木) 18:03