هذه الماكرو للزر الاول
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