実行前に以下弄って画面更新を抑制してる?
Application.ScreenUpdating
Application.Calculation