[Spirosgr]

Καλημέρα.
Αντέγραψε τον παρακάτω κώδικα, στο φύλλο (συμβάν Change)
Όταν στο a1 κελί, πληκτρολογούμε ένα όνομα φύλλου, από τα υπάρχοντα στο βιβλίο,
το «βλέπει» ο κώδικας και το ενεργοποιεί...

Υποθέτουμε ότι:
1
Το φύλλο είναι το 1ο στην σειρά.
Αν όχι αλλάζουμε στον κώδικα (κόκκινο) τον αριθμό 1, με όποιο θέλουμε.
2
Το κελί που θα πληκτρολογούμε το όνομα φύλλου, είναι το a1.
Αν όχι αλλάζουμε στον κώδικα (μπλε) τις συντεταγμένες του κελιού που θέλουμε.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strSh As String
    strSh = Sheets(1).Cells(1, 1)
    If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
    On Error Resume Next
    Sheets(strSh).Activate
End Sub

Σημειώσεις:
1
Δεν λειτουργεί, το Undo.
2
Αφορά, το «φανερό» (tab) και όχι το κωδικό όνομα φύλλου.
3
Μπορούμε, να έχουμε στο a1 και μια λίστα, (DropDown)
με τα ονόματα φύλλων, αντί να τα πληκτρολογούμε.