Tab. Blätter wählen

Sub TabSelect()
Dim wks As Worksheet
Dim strWks As String
strWks = InputBox("Bitte Kalenderwoche (Tabellenblatt) angeben:")
If strWks = "" Then Exit Sub
For Each wks In Worksheets
If InStr(UCase(wks.Name), UCase(strWks)) > 0 Then
wks.Select
Exit Sub
End If
Next wks
Beep
MsgBox "Kein Blatt gefunden!"
End Sub

Ist auch eine wunderbare Sache. Dabei kam mir nun aber der Gedanke, dass für meine Zwecke genial wäre, wenn man quasi ein solches Makro starten kann und die Registernamen der Tab. Blätter der Arbeitsmappe gleich zur direkten Auswahl zur Verfügung stehen. Sprich man wählt das gewünschte Blatt aus und bestätigt und dann springt er direkt dorthin. Ist das machbar? Wenn ja, wie geht sowas?
Merci! Sven