Refresh Pivot Tables

I have this code to refresh a pivot table:

Hoja3.PivotTables("Tabla dinámica2").PivotCache.Refresh
Hoja7.PivotTables("Tabla dinámica4").PivotCache.Refresh
Hoja6.PivotTables("Tabla dinámica4").PivotCache.Refresh


The code works, but when I have 50 pivot tables, and I want to refresh all of them in the same time, th pc is blocked and I must to close the excel application. What can I do?

What version of Excel are you running? Is the source data for all the tables the same? More recent versions allow you to create a second pivot table using the first as the input, rather than using the original data. This means that when you refresh one of them, they are all refreshed. If you have a recent version of excel (say 2003), then see if you can change the datasource

Matt