マクロの作業中のブレを無くしたい。

質問

マクロの作業中のブレを無くしたい。
勤怠表時間を記入する部分だけけす。　マクロを自動登録したのですが、
Application.ScreenUpdating = False　を何処に記入すればよいか分かりません、
あと出来れば簡素な、マクロにかきかえたいのですが、

Sub 全時間クリアー()
' 全時間クリアー Macro
' 明細書・週払い・入力時間を全シート消す

自動で入れたマクロの式を張り付ける事が、できませんでした。（文字数オーバー）
消したい　セルは、C14　D14　E14　E12　　　C16:E46なのですが、
Sheetは、54枚有りまして全て同じフォーマットです。シート名は、Sheet1～54まで、順番です。
こんな情報では、書くのは、無理でしょうか、

回答No.1

mar00 · ベストアンサー

Application.ScreenUpdating = Falseは一番最初か
一番最初のsheets().select、Range().selectなどの動きのある記述の前
最後にApplication.ScreenUpdating = True
を記述しておけばよいと思います。

下記のマクロはシートを選択するsheet().select
記述をしていないので動きはありません。
Application.ScreenUpdating = Falseは必要ないです。

Sub Macro1()
For i = 1 To Sheets.Count
Sheets(i).Range("C14:E14,E12,C16:E46").ClearContents
Next i
End Sub

自動で入れたマクロの式を張り付ける事ができませんでした。（文字数オーバー）
はどうしたいのかわかりませんでした。

お礼

ありがとうございました。
こんなに短い式で　出来るのですね。　
自動で入れたマクロ　張り付けできませんでしたは・・・スミマセン
わかりにくいですよね～　私はマクロ自動登録しかできず、
その内容を質問に張り付けようとしたのですが、
文字の数か多くて質問に張り付けできませんでした。　その意味でした。
しかし　こんなに短い物で動くとは、ビックリです。

回答No.2

keithin

新しいマクロの記録を開始する
シート名タブの所を右クリックして全てのシートを選択を選ぶ
セルをクリックしてDeleteする
またはセルをCtrl+連続クリックして飛び飛び選びDeleteする
C14セルを（または最初のセル，実際にやってみて良いセルを）選ぶ
シート名タブを右クリックして作業グループ解除する
マクロの記録を終了する

などでも良いと思います。
勿論手書きで詳しいプログラムが書ければ，それに越したことは無いですけどね。

お礼

ありがとうございます。
もともと
同じ方法でマクロ登録したのですが、
画面がぶれるのが気になりまして・・・・