birden çok sayfayı birden seçebilme

[ismailmustafa]

Herkese hayırlı geceler. Çok fazla sayfa içeren excel kitabında aşağıdaki sayfaya git kodu ile istediğim sayfaya gidebiliyorum. Ancak birden çok sayfayı aynı anda seçebilmenin yolunu arıyorum. mesela "1-1"den "150-1"e kadar olan sayfaları birden seçmek istiyorum. Yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederim.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 1 Then Exit Sub
Dim Sayfa As String
Sayfa = InputBox("Sayfayı Giriniz", "Başlık")
If Sayfa = "" Then Exit Sub
Sheets(Sayfa).Select
End Sub

 

[Cengiz Demir]

Seçim aralığını belirlemek için; ilk sayfayla beraber ikinci sayfa bilgisinin de alınması gerekiyor.
O duruma göre kodları ayarladım. Hayırlı geceler

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 1 Then Exit Sub

Dim Sayfa1, Sayfa2 As String
Dim x, y, z As Integer

On Error GoTo hata:

Sayfa1 = InputBox("İlk Sayfayı Giriniz.", "Başlık")
Sayfa2 = InputBox("İkinci Sayfayı Giriniz.", "Başlık")

If Sayfa1 = "" Or Sayfa2 = "" Then Exit Sub

Sheets(Sayfa1).Select

x = Sheets(Sayfa1).Index + 1
y = Sheets(Sayfa2).Index

    For z = x To y
        Worksheets(z).Select (False)
    Next z

Exit Sub

hata:
MsgBox ("Sayfa ismi hatalı!")

End Sub

 

[ismailmustafa]

Elinize emeğinize sağlık. Çok teşekkür ederim. Hayırlı günler

 

[Cengiz Demir]

Rica ederim hayırlı günler.

Elinize emeğinize sağlık. Çok teşekkür ederim. Hayırlı günler