For Each でシートのループ

質問

簡潔に質問する為に以下のマクロを見て頂きたいのですが、
この場合sheet1,sheet2,sheet3のそれぞれの(1,1)に2が発生せず
現在目でみているシートにのみ有効なのですが、全シートに有効に
するには何が足りないのでしょうか

Sub aaa()
Dim ws As Worksheet
For Each ws In Worksheets
　Cells(1,1)=2
Next
End Sub

回答No.1

めとろいと（@naktak） · ベストアンサー

wsに維持されているワークシートの操作ではなく、現在アクティブになっている
ワークシートに対する操作になっているから。

ws.Cells(1, 1) = 2
ってすれば良いです。

回答No.2

piroin654

Dim w As Worksheet

For Each w In ThisWorkbook.Worksheets
w.Cells(1, 1) = 2
Next w

のような。