Opdater flere pivotér uden alle skridt i makroen "kan ses"

Jeg har behov for at opdatere 7 pivottabeller der ligger på fanen 'Pivot'er', efter at der er foretaget brugervalg mht. visning fra fanen 'dynamiske grafer'

Jeg vil gerne undgå at brugeren kan se at der skiftes fane og at tabellerne opdateres.
Minnuværende makro virker fint, men det ser "rodet" ud når den afvikler pga. faneskift osv.



Sub opdatér_dynamiske_grafer()
'
' opdatér_dynamiske_grafer Makro
'

'
    Sheets("Pivot'er").Select
    Range("B2").Select
    ActiveSheet.PivotTables("Pivottabel1").PivotCache.Refresh
    Range("I2").Select
    ActiveSheet.PivotTables("Pivottabel2").PivotCache.Refresh
    Range("O2").Select
    ActiveSheet.PivotTables("Pivottabel3").PivotCache.Refresh
    Range("T2").Select
    ActiveSheet.PivotTables("Pivottabel4").PivotCache.Refresh
    Range("AC2").Select
    ActiveSheet.PivotTables("Pivottabel5").PivotCache.Refresh
    Range("AJ2").Select
    ActiveSheet.PivotTables("Pivottabel14").PivotCache.Refresh
    Range("AQ1").Select
    Sheets("dynamiske grafer").Select
End Sub

Dog vil jeg gerne undgå at brugerren "kan se" at der skiftes til fanen 'pivot'er' og at alle skridtene i makroen er synlige for brugeren.

Er der nogen derude der har en nem løsning?