VBAですべてのワークシートを処理したい

質問

ブック内の全ワークシートに対して同じ処理をするために、

For each ワークシート in Worksheets
～処理～
Next ワークシート

を使ってみたのですが、その時にアクティブになっているシートしか処理されません。たとえば次のようなシンプルなコードでも、同様です。何が抜けているのでしょうか。

Sub allworksheets()
Dim WS As Worksheet
For Each WS In Worksheets
Range("a1") = "123"
Next WS
End Sub

マクロの勉強を始めたばかりで、基本的なことでつまづいてます。よろしくお願い致します。

回答No.1

saintandre · ベストアンサー

せっかくオブジェクトをWSに代入しているのですから、
きちんと使ってあげましょう。

誤： Range("a1") = "123"
↓
正： WS.Range("a1") = "123"

お礼

ありがとうございます。
なるほど～！