RefreshTable method of PivotTable class failed

This is the code I am using:

Sub RefreshPivots()
  Dim pvt As PivotTable
    Application.ScreenUpdating = False

       For Each pvt In ActiveSheet.PivotTables
           pvt.RefreshTable
       Next pvt
    Application.ScreenUpdating = True
End Sub

I receive the following error message, which I don't understand: RefreshTable method of PivotTable class failed
I would appreciate any help.
Thanks in advance