Excelの参照はピボットテーブルでは無効RefreshTable

Question

単純なVBAを使用してピボットテーブルを更新するボタンがあります。私はそれをクリックすると

私が取得しています：

実行時エラー '1004'：

参照が有効ではありません。

私は次のように強調表示されDebugを選択：

pt.RefreshTable

全コード：

Sub Refresh_pivot() 

    Sheets("Control").Select 

    Application.ScreenUpdating = False 
    Dim pt As PivotTable 
    Dim ws As Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 

     For Each pt In ws.PivotTables 
      pt.RefreshTable 
     Next pt 

    Next ws 


    Application.ScreenUpdating = True 
    Application.Goto Reference:="returncell" 
    Range("A15").Select 

End Sub 

誰も私が遭遇した問題を説明するのに役立つことはできますか？

Answer 1

問題は、外部テーブル名を変更したODBCデータダンプを参照するピボットテーブルでした。

名前を更新してもう一度作業しました。