コードの先頭にコード行を入力します：

Application.ScreenUpdating = False

コードの最後にコード行を入力して、画面を元に戻します。

Application.ScreenUpdating = True