Opdater flere pivottabeller samtidig, med makro

Hej
Jeg har en makro der opdatere min (e) pivottabeller. Den virker perfekt, når jeg kører den på hvert enkelt ark. Men hvordan får jeg den til at opdatere alle ark på engang? Forskelligt antal hver gang. Og der er sider der ikke er pivottabeller på. Ark1, Ark2 og Ark3 er uden pivottabeller.

Sub PivottabelNavn()
    Range("B4").Select
    ActiveSheet.PivotTables(Range("E4").Value).PivotFields("Navn").ClearAllFilters
    ActiveSheet.PivotTables(Range("E4").Value).PivotFields("Navn").CurrentPage = _
        Range("B1").Value
    Range("A3").Select
End Sub