複数シートに同じ処理を行いたい

Question

前提・実現したいこと

VBAで複数シートに同じ処理を行いたいです。

〇処理
各シートの２行目から最終行までデータをクリアしたい。
１行目に項目名が書かれており、A列～G列までデータが格納されている。

以下のようなシートがあります。
・メイン
・01～10 ※二桁の数字で増えることもあります
・計算用

該当のソースコード

Sub 一括クリア()
    '画面更新停止
    Application.ScreenUpdating = False
    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select
    Sheets("01").Activate

    Rows("2:450").Select '450以上行があった場合どうするか
    Selection.ClearContents
      
End Sub

試したこと

Range("A1").CurrentRegion.Offset(1, 0).ClearContents
を使って削除しようとしたところ、01シートはうまくいきましたが、他のシートが01の最終行までしか削除されませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

シート名が「01～10 ※二桁の数字」に該当する場合に
処理させるとうまく動作します。

Sub 一括クリア()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name Like "[0-9][0-9]" And Len(Sh.Name) = 2 Then
            Sh.Activate
            Sh.Range("A1").CurrentRegion.Offset(1, 0).ClearContents
        End If
    Next Sh
End Sub

Comments

[kanata0214]

ありがとうございます！無事動作しました！
シート名を数字で指定する方法を知らなかったので大変助かりました。