Sub 画面更新ちらつきを停止() Application.ScreenUpdating = False '画面更新ちらつきを停止 'ここにコードを記述 Application.ScreenUpdating = True '画面更新ちらつきの停止解除 End Sub