Run time error 1004. Pivot Table Refresh

Hi There,

Im using the following code to refresh a pivot table. The pivot table is a result of a Microsoft Query from 4 different sheets. I receive a runtime error when using the code. I do not receive any error as a result of pressing the "refresh" button for the pivot table itself. The code below was a recording of the pressing of the reset button. Any help would be greatly appreciated. Could this be a result of the Pivot table Reading Data action that is taking place.

Sub MainPivotMacro4()

    Sheets("Consolidated").Select
    Range("A1").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    
End Sub

Thank you
Mike