VBAで複数シート選択

エクセルVBAで複数のシートを選択する場合、
Sheets(Array("AAA", "BBB", "CCC")).Select　
と書くと思いますが、マクロを回してみないことにはシート名や枚数が特定できない場合、どのように記述したらいいのでしょうか？
たとえば、新たに追加されたSheets(n)～Sheets(n+x)を選択するような場合です。
よろしくお願いします。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2006/06/10 16:01

#2です。

＃２のお礼に関して、
Sub test01()
n = 2
m = 3
Sheets(n).Select
For i = n + 1 To n + m - 1
Sheets(i).Select False
Next i
End Sub
でどうですか。

この回答へのお礼

imogasiさん、いつもありがとうございます。
Sheets(i).Select Falseで、順次セレクトできるんですね！
これならわざわざシート名を配列に入れていかなくても、都度選択していけばいいということがわかりました。
ありがとうございました。

お礼日時：2006/06/10 22:01

No.2 回答者： imogasi 回答日時： 2006/06/10 14:24

Sub test01()

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
MsgBox sh.Name
' 処理
Next
End Sub
でどうですか。
問題にしているある１つのシートは、処理を除外する場合がありますが、Ｉｆ文でシート名を
判別して、スキップしてください。

この回答へのお礼

ありがとうございます。
For Nextは一番最初に考えたのですが、Sheets(n)～Sheets(n+x)に該当する場合、すべて選択するという処理の書き方が分からないのです。
よろしかったらご教示お願いできませんでしょうか？

お礼日時：2006/06/10 14:53

No.1 回答者： bonaron 回答日時： 2006/06/10 02:12

> 新たに追加されたSheets(n)～Sheets(n+x)を選択するような場合です。

要は、シート名の配列を渡せば良いわけで。
サンプルです。
Sub Test1()
Dim sh() As String
Dim i, n, x
n = 5
x = 2
ReDim sh(n To n + x)
For i = LBound(sh) To UBound(sh)
sh(i) = Sheets(i).Name
Next
Sheets(sh).Select
End Sub

この回答へのお礼

ありがとうございます。
ReDim？また新たな疑問が湧いてきましたが、なんとか追加されたシートインデックスを（n To n + x)にいれて目的を達することができました。

お礼日時：2006/06/10 14:50