Sub マクロVBAの実行動作を軽くするコード()

Application.EnableEvents = False 'シートの動作停止
Application.DisplayAlerts = False 'メッセージを停止
Application.ScreenUpdating = False '画面更新ちらつきを停止

'ここにコードを記述

Application.EnableEvents = True 'シートの動作の停止解除
Application.DisplayAlerts = True 'メッセージの停止解除
Application.ScreenUpdating = True '画面更新ちらつきの停止解除

End Sub