Inserire valore si apre il foglio

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Sheets(Target.Value).Select
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Or Target = "" Then Exit Sub
    Sheets(Target.Value).Select
End Sub

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Or Target = "" Then Exit Sub
    Sheets(Target.Value).Select
End Sub

Sub GotoSheet()
    Dim xRet As Variant
    Dim xSht As Worksheet
    xRet = Application.InputBox("Vai a questo foglio")
    On Error Resume Next
    If xRet = False Then Exit Sub
    On Error GoTo 0
    On Error Resume Next
    Set xSht = Sheets(xRet)
    If xSht Is Nothing Then Set xSht = Sheets(Val(xRet))
    If xSht Is Nothing Then
        MsgBox "Non esiste"
    Else
        xSht.Activate
    End If
End Sub