Vypnutí zobrazování úprav:

     Application.ScreenUpdating = False
     Application.ScreenUpdating = True

Vypnutí automatického přepočítávání vzorců:

     Application.Calculation = xlManual
     Application.Calculation = xlAutomatic