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