マクロを複数シートに実行するには？

質問

ブック内全ての複数のシート（sheet30くらい）に、
同じマクロ作業を実行するには どのようにすればよいでしょうか？

回答No.2

myRange

例えば、
●全シートのセルＢ５、に、"あいうえお"と入れる場合
'-------------------------------
Sub Test()
　Dim sht As Worksheet
　For Each sht In Worksheets
　　　sht.Range("A1").Value = "あいうえお"
　Next sht
End Sub
'---------------------

●Sheet３以外のシートのセルＢ５、に、"あいうえお"と入れる場合
'--------------------------------
Sub Test()
　Dim sht As Worksheet
　For Each sht In Worksheets
　　　If sht.Name <> "Sheet3" Then
　　　　　sht.Range("A1").Value = "あいうえお"
　　　End If
　Next sht
End Sub
'----------------------

以上です。