Application.ScreenUpdating = False
画面の更新をの有無をコントロールします。
更新をしない場合(False)は処理の実行速度が速くなります。
Falseに設定後はマクロ実行後も画面更新がしないままなので最後に
画面を更新する
Application.ScreenUpdating = True
で元に戻します。
Sub SA1() '画面更新を停止する Application.ScreenUpdating = False '画面更新する Application.ScreenUpdating = True End Sub