Amigo, utiliza o Application.ScreenUpdating

Quando for False: Application.ScreenUpdating = False ele desabilitada a iteração da macro e quando for True ele faz todas aquelas alterações visualizando a troca das páginas.

Boa tarde Engenharia.

Eu geralmente resolvo isso colocando esse código logo abaixo do nome da Sub:

Sub NomedaSub ()
Application.ScreenUpdating = False

Só não se esqueça de colocar o True antes do End Sub:

Application.ScreenUpdating = True
End Sub

Abraços.....