複数のシートでマクロの実行

質問

ブック内の全てのシートで同一のマクロを実行させたいのですが。

Sub Test()
Dim ws As Worksheet
　For Each ws In Worksheets
　処理内容　
　Next ws
End Sub

上記の「処理内容」が以下だと成功します。

ws.Range("A1").Value = ws.Name

が、以下だと(置換処理)、一番最初のシートしか実行されません。

Range("A1:G20").Select

Cells.Replace What:="A", Replacement:="B", _
LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

「Range("A1:G20").Select」の「Range」を「ws.Range」にすると、その行がエラーになってしまいます。
置換処理を全てのシートで実行させるためには、マクロをどのように直せばいいでしょうか？

回答No.2

hana-hana3 · ベストアンサー

For Each ws In Worksheets
　ws.Activate
　処理内容　
　Next ws

お礼

回答ありがとうございます。
うまくいきました。

回答No.1

merlionXX

次のシートをSelectしてないのに、次のシートのRange("A1:G20")をSelectしようとするからエラーになるのです。

Sub Test()
Dim ws As Worksheet
For Each ws In Worksheets
Range("A1:G20").Replace What:="A", Replacement:="B", LookAt:=xlPart
Next ws
End Sub

お礼

回答ありがとうございます。
試してみましたが、最初のシートしか実行されませんでした。