مساعده فى هذا الكود

[يثرب]

انا استخدم هذا الكود لعمل زر تنقل لابين اوراق العمل واريد التعديل عليه بحيث لا يظهر كل اوراق العمل ولكن يظهر مجموعه احددها له فأرجوا التوضيح على هذا المثال

التنقل بين جميع الشيتات بزر واحد.rar

[سليم حاصبيا]

هذه الماكرو للزر الاول

Option Explicit

Sub Sheet1_2_3()
Dim x
x = Application.InputBox("Choose sheet from 1,2,3 to select", "Excel tel you", 1)
Select Case x
   Case Is = 1
        Sheets("1").Select
    
    Case Is = 2
        Sheets("2").Select
   
    Case Is = 3
        Sheets("3").Select
      
    Case Else
   MsgBox "you select Invalide number"
End Select
End Sub

و هذه للزر الثّاني

Sub Sheet_B_D()
Dim x
x = Application.InputBox("choose sheet from B,D to select", "Excel tel you", "B")
x = UCase(x)
Select Case x
   Case Is = "D"
        Sheets("D").Select
    
    Case Is = "B"
        Sheets("B").Select
   
    Case Else
   MsgBox "you select Invalide Name"
End Select
End Sub