'画面のちらつきを抑える
Application.ScreenUpdating
=
False
'画面のちらつきを解除
Application.ScreenUpdating
=
True