アクティブでない複数のシートのセルのコンテンツを一度でクリアしたい

質問

エクセルVBAで、アクティブでない複数のシートの所定のセルのコンテンツを一度でクリアしたいのですが、
現在アクティブではないシートをアクティブにしないでclearcontentsするとアプリ定義、オブジェクト定義エラーになってしまいます。
それぞれのシートをアクティブにしないとclearcontentsできないのでしょうか？
どなたか教えてください。よろしくお願いします。
-------------------------------------------------------------------------------
Sub CLEAR_CONTENTS()

Sheets(\"1\").Range(Cells(6, 3), Cells(6, 8)).ClearContents
Sheets(\"2\").Range(Cells(6, 3), Cells(6, 8)).ClearContents
Sheets(\"3\").Range(Cells(6, 3), Cells(6, 7)).ClearContents

End Sub

回答No.2

n-jun · ベストアンサー

ANo.1です。

文字化けだったのですね。

多分ですが、
Sheets("1").Range(Cells(6, 3), Cells(6, 8)).ClearContents
この場合Rangeはシート名"1"にかかりますが、Cellsはアクティブな
シートにかかってしまいます。

位置が決まっているのなら
Sheets("1").Range("C6:H6").ClearContents

位置が可変するようなら、
With　Sheets("1")
　　　　　.Range(.Cells(6,　3),　.Cells(6,　8)).ClearContents
End　With
のようにWith～End Withでくくり、Cellsの前に"."をつけてあげれば
シート名"1"にかかりますよ。

その他のシートも同様の方法で試してみて下さい。

お礼

n-junさん、ご回答ありがとうございます。

お教えいただいたとおりにしてみましたら、うまくいきました。
なるほど、cellsはアクティブなシートのA１を基点としているのですね。

ありがとうございました！！

回答No.1

n-jun

シート名の指定が違うのでは？
Sheets("\1\")～
""の位置が違っているように思いますけど。

補足

すみません。
コピペしたら文字化けしてしまいました。
Sub CLEAR_CONTENTS ()
Sheets("1").Range(Cells(6, 3), Cells(6, 8)).ClearContents
Sheets("2").Range(Cells(6, 3), Cells(6, 8)).ClearContents
Sheets("3").Range(Cells(6, 3), Cells(6, 7)).ClearContents
End Sub

宜しくお願いいたします。