Laufzeitfehler 1004 - Pivots-Aktualisier

Moin,

ich lasse in meinem Dashboard über einen Button die Pivottabellen auf zwei anderen Tabellenblätter aktualisieren.

Das Dashboard lief ziemlich lange problemlos, habe es dann ca. 1-2 Monate nicht genutzt und heute kam dann die Meldung:
Laufzeitfehler '1004: Die RefreshTable-Methode des PivotTable-Objektes konnte nicht ausgeführt werden.




Der Code:

Option Explicit

Sub UpdateAllPivotTables()
    Dim pt As PivotTable
    Dim ws As Worksheet
    
    ' Aktualisiert alle Pivot-Tabellen in jeder Arbeitsmappe
    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next pt
    Next ws
    
    ' Benachrichtigung über erfolgreiche Aktualisierung
    MsgBox "Alle Pivot-Tabellen wurden aktualisiert!", vbInformation
End Sub