Não trabalho com tabela dinamica, mas em uma busca rápida, a principio a rotina está correta, agora quanto ao erro, no google tem vario links a respeito, um deles é o abaixo :
1004 - Please wait until Microsoft Excel has finished refreshing the PivotTable report, and then try the command again.
http://www.mrexcel.com/forum/excel-ques ... again.html

Veja se a solução indicada se aplica a sua questão, se não vamos aguardar outras opiniões.

[]s

Obrigado Mauro. Mas não funciona.

Fica processando e não sai do mesmo sitio. Experimentei da seguinte forma:

Sub RefreshAllPivotTables()

Dim PT As pivotTable
Dim WS As Worksheet

resumeWait:

    On Error GoTo errWait
   
    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

 On Error GoTo 0
    
    Exit Sub

errWait:
    Resume resumeWait 'Resume the code to try again
End Sub

Miguel não tenho como testar a rotina, mas se conseguir anexar seu modelo podemos ver.

Outra coisa, tente alterar a localização da linha de erro :

Aqui :
On Error GoTo errWait
For Each WS In ThisWorkbook.Worksheets
'Ou aqui:
On Error GoTo errWait
For Each PT In WS.PivotTables

[]s