Excel： シートの一括クリア

質問

チャートを複数を含む５つのシート（シートの名前：　CHT１～CHT5）のVBAで一括にクリアーにしたいです。
マクロの自動記録を使って出来たコードを参考に以下のコードを作りましたが、Cells.Selectのところでエラーになります。　Cells.Selectを消して、コードを走らせる前に、自分で各シートの左上のところをクリックして、シート全域をアクティブ状態にしたら動く様なのです。　VBAではマクロで出てくる　Cells.Select　は使えないのでしょうか。　何か方法があれば御教示下さい。

Private Sub CommandButton2_Click()

Dim i As Integer
Dim Name As String

For i = 1 To 5

Name = "CHT" + CStr(i)
Sheets(Name).Select
Cells.Select
Selection.Delete Shift:=xlUp

Next i

End Sub

回答No.1

Samurai-Jack · ベストアンサー

これならどうでしょう？
Sheet名をつけてCells.Selectです。

Dim i As Integer
Dim Name As String

For i = 1 To 3

Name = "CHT" + CStr(i)
Sheets(Name).Activate

Sheets(Name).Cells.Select

Selection.Delete Shift:=xlUp

Next i

お礼

即答有難う御座いました。
完璧に動きました。
大変参考になりました。