excel - VBA を使用してピボット テーブルが更新されない

Question

Excel 365 でピボットを作成しました。

私のソースデータは Ms Access クエリにあります

Excel でマクロを作成してピボットを更新しましたが、エラー メッセージが表示されました。

Runtime error 1004

Unable to get PivotTables property of the worksheet class

私が書いたコード：

Sub Refresh_Pivot01()
'
' Refresh_Pivot01 Macro
'
Sheets("PivotData").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh*

End Sub

ThisWorkbook.RefreshAllソースデータが同じExcelシートにあり、私の場合、ソースデータがMS Accessクエリにある場合にのみ、コードは機能します

何かが間違っているに違いありませんが、私はそれを理解することはできません! 誰かがここで私を助けることができますか??