エクセルＶＢＡでLockされてないセルをClearContents

質問

エクセル2000です。
シートでロックされていないセルだけ中身を削除するマクロを作っています。以下でも一応作動はするのですが、いちいちForNextでまわさずにできないものかと質問させていただきました。
よろしくお願いします。(o。_。)oペコッ

Sub クリアテスト()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then
c.ClearContents
End If
Next
End Sub

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

テンプレート等のデータクリアだと思います。

ロックしてない（クリアする）セルに予め名前をつけておき、
　　Range("名前").ClearContents
じゃダメなのかな？

これがダメなら、ご提示のマクロのようになると思います。

お礼

さっそくありがとうございます。

実は、それぞれレイアウトが異なる複数のシートに対してそれぞれのシートがアクティブなときにだけ働けばいいので、同じマクロで済ましてしまおうとたくらんだのです。

やはり、For Nextですか・・・。