VBAでシート全体の塗りつぶしを解除する

シート内にある塗りつぶしをしたセルを
一度に全てクリアしたいのですが、どうすればよいでしょうか。。。

不規則で、しかも数が多いので、それぞれのセルを選択してクリアする、ということが難しいです。

Worksheets("Sheet1").Range("A1").Interior.ColorIndex = xlNone　×

Worksheets("Sheet1")　には　Interiorプロパティ(？)が存在しないのでしょうか。
手作業でする場合、シートの左上をクリックして全選択し、[塗りつぶしの色]-[塗りぶつしなし]とできるので、VBAでもできるんではないかと思っているのですが
不可能なのでしょうか。

素人の質問ですみません。。。

No.2 ベストアンサー 回答者： hana-hana3 回答日時： 2009/01/14 15:31

＞手作業でする場合、シートの左上をクリックして全選択し、[塗りつぶしの色]-[塗りぶつしなし]とできるので

そのままマクロの記録を取れば良いと思いますが？

"Cells"がシートのセル全てという意味になります。

Worksheets("Sheet1").Cells.Interior.ColorIndex = xlNone

この回答へのお礼

マクロの記録をとるとかできるんですね！
知りませんでした。
ばっちりできました。ありがとうございました。

お礼日時：2009/01/14 15:45

No.1 回答者： merlionXX 回答日時： 2009/01/14 15:28

Worksheets("Sheet1").Cells.Interior.ColorIndex = xlNone

でできます。

この回答へのお礼

できました！
ありがとうございました。とても助かりました。

お礼日時：2009/01/14 15:46