エクセルのマクロでシートの選択について

質問

よろしくお願いします

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にコピー＆ペーストするだけで実行できるような
状態にしていただきますと非常に幸いです

何卒、よろしくお願いいたします

回答No.1

DreamyCat · ベストアンサー

For i = i To 6
を
For i = i To sheets.count
にしてください。

お礼

どうもありがとうございました
できました

回答No.3

imogasi

Sub test01()
MsgBox Sheets.Count
End Sub
（長々質問文を書いているが）Sheets.Count
を知らないだけでは。
数える、掴むという観点から、VBAの概説書を読んで
智識を整理してはどうです。
Sub test02()
For Each sh In Worksheets
MsgBox sh.Name
Next
End Sub
も便利です。

お礼

回答およびご指摘ありがとうございます
おっしゃるとおりVBAの概説書を読んで勉強します
ありがとうございました

回答No.2

KURUMITO

Sheets(i).Select
の意味はシート見出しにおける左からのシートの番号が１から始まってi 番目のシートを指すことになります。i=1という場合には最も左にあるシートを指すことになりますね。おそらく目次のシートがそうなのでしょう。
したがってお示しの式の場合にはシート見出しで左から２番目から６番目までが選択され作業グループに指定されることになりますね。６番目までのシートが存在しない場合にはエラーになってしまいますね。
ところでご質問の意味はおそらくシートの並び順を言っているのではなく、シート名が１から５までを作業グループにしたいということでしょう。その場合には次のようなマクロにすることがよいでしょう。

Sub Macro1()

Dim i As Integer

i = 1
Sheets(""& i ).Select
For i = i To 5
Sheets(""& i ).Select False
Next i

End Sub

勿論シート名が１から５まで存在することが必要です。

お礼

回答どうもありがとうございました
こちらもやってみたところ無事にできました