エクセルのマクロでシートの選択について
よろしくお願いします
WinXP SP3でEXCEL 2003を使用しています
ブック名がtest.xls
シートが("目次", "1", "2", "3", "4", "5")
とあります
ここでは仮に"5"までシートがありますが本来は変数であり、n + 1のように扱いたいです
以下のマクロで"目次"以外の全てのシートを選択しました
～～～～～
Sub Macro1()
Dim i As Integer
i = 2
Sheets(i).Select
For i = i To 6
Sheets(i).Select False
Next i
End Sub
～～～～～
このマクロですとArrayを使わずとも、"目次"以外のシートを選択できますが
For i = i To 6 の6を7以上にするとエラー終了します
そこで以下の条件にてシートの選択を行いたいのですが方法がわからず困っております
1・シートの数が多くても"目次"以外のシートを全て選択したいです
2・iがシートの数を超えた場合はエラー終了せず、マクロを終了させたいです
3・Sheets(Array( "1", "2", "3", "4", "5")).Select のようなマクロは組みたくないです
大変恐縮ですが、教えていただけますでしょうか
できればマクロをVBEにコピー＆ペーストするだけで実行できるような
状態にしていただきますと非常に幸いです
何卒、よろしくお願いいたします
お礼
有難うございました。