'画面のちらつきを停止
Application.ScreenUpdating
=
False
'処理
'画面のちらつきを解除
Application.ScreenUpdating
=
True