Ａ～Ｂ間にある全てのシートを選択する記述を教えてください

質問

ＶＢＡの基本がまったくわかっていない初心者です。
マクロで、あるブックの左から３つ目のシートが“Ａ”、末尾が“Ｂ”という名前のシートで、そのＡからＢ間のシート全てを選択したいのですが、方法が分かりません。自動記述で選択すると、
Sheets(Array("Sheets1","Sheets2")).Select
などとなりますが、シートの数も名前も不定ですので名前では指定できません。
このサイトなどで調べて
Sheets(Sheets(3)：Sheets.Count).Select
などとやってみましたがエラーになります。
丸投げで恐縮ですが、記述のしかたを教えていただけないでしょうか。
よろしくお願いいたします。

回答No.1

wangkp

Dim sl() As String
Dim pos As Integer
Dim iStart As Integer
iStart = 9999
pos = 0
For i = 1 To Sheets.Count

If Sheets(i).Name = "A" Then
iStart = i
End If
If Sheets(i).Name = "B" Then
sl(pos) = Sheets(i).Name
Exit For
End If

If (i >= iStart) Then
ReDim Preserve sl(pos + 1)
sl(pos) = Sheets(i).Name
pos = pos + 1
End If

Next
Sheets(sl).Select
ActiveWindow.SelectedSheets.Delete
End Sub
一点不足なんですけど、削除とき、確認画面が出られます。

お礼

こんなに大変な記述が必要だとは想像していませんでした。ありがとうございました。他の方の回答で短いものがありましたので、そちらを優先させていただきました。ご了承ください。