Primo Codice
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
X = Range("G1").Value
If X = "" Then Exit Sub
10
Worksheets(X).Visible = True
Sheets(X).Select
End Sub
Secondo Codice
Private Sub Worksheet_Activate()
X = Range("G1").Value
If X = "" Then Exit Sub
Sheets("Foglio2").Visible = False
Sheets("Foglio3").Visible = False
Sheets("Foglio4").Visible = False
Sheets("Foglio5").Visible = False
10
Worksheets(X).Visible = False
Sheets("MENU").Select
Range("G1").ClearContents
Range("G1").Select
End Sub
|