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

前提・実現したいこと

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

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

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

該当のソースコード

VBA
1Sub 一括クリア()
2    '画面更新停止
3    Application.ScreenUpdating = False
4    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select
5    Sheets("01").Activate
6
7    Rows("2:450").Select '450以上行があった場合どうするか
8    Selection.ClearContents
9      
10End Sub

試したこと

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

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

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