マクロの行を減らすことができますか？

現在マクロを作成しボタンを押すとマクロ(myHeader1)が実行するようにしています。
今のマクロでは各シートにマクロ(myHeader1)実行するようにしていますが
行を減らして実行できるようにできないでしょうか？


Sub HEADER_WRITING()
'
' Macro1 Macro
'

'

On Error Resume Next
Sheets(2).Select
Application.Run "Sheet2.myHeader1"
Sheets(3).Select
Application.Run "Sheet3.myHeader1"
Sheets(4).Select
Application.Run "Sheet4.myHeader1"
Sheets(5).Select
Application.Run "Sheet5.myHeader1"
Sheets(6).Select
Application.Run "Sheet6.myHeader1"
Sheets(7).Select
Application.Run "Sheet7.myHeader1"
Sheets(8).Select
Application.Run "Sheet8.myHeader1"
Sheets(9).Select
Application.Run "Sheet9.myHeader1"
Sheets(10).Select
Application.Run "Sheet10.myHeader1"
End Sub

No.1 ベストアンサー 回答者： nekoronda 回答日時： 2020/06/19 19:41

以下のようにForでループさせます

For i = 2 To 10
　On Error Resume Next
　Sheets(i).Select
　Application.Run "Sheet" & i & ".myHeader1"
Next

この回答へのお礼

nekoronda様返事ありがとうございました。
このやり方があるんだと勉強になりました。
ありがとうございました。

お礼日時：2020/06/20 13:34