ブック全体に。。。

質問

こんにちは。マクロや関数について教えてください。
ブック内にある複数のシートに下記と同じマクロを実行したいのですが、何を変えたらそうなりますか？

Sub test()
For Each a In ActiveSheet.UsedRange
a.Value = Trim(a.Value)
Next
End Sub

アクティブのシートはうまくいくのですが、100ほどあるシート全てに同じマクロを実行したいです。
よろしくお願いします。

回答No.1

mt2008 · ベストアンサー

ソフト名が無いですが、Excelでよろしいですよね？
当方Windows版ですが、以下の様にシートの分もFor Eachでループをしてやれば良いかと。

Sub test()
　　Dim ws As Worksheet
　　For Each ws In Worksheets
　　　　For Each a In ws.UsedRange
　　　　a.Value = Trim(a.Value)
　　　　Next a
　　Next ws
End Sub

お礼

ありがとうございます！！！
試したところうまくいきました。
早速のご回答、本当に助かりました。