TB per Inputbox auswählen

Sub TabSelect()
Dim wks As Worksheet
Dim strWks As String
strWks = InputBox("Bitte Kalenderwoche (Tabellenblatt) angeben:")
If strWks  "" Then
On Error Resume Next
Err.Clear
Set wks = Worksheets(strWks)
If Err.Number > 0 Then
Beep
MsgBox "Blatt nicht gefunden!"
Else
wks.Select
Set wks = Nothing
End If
End If
End Sub

Ich stehe vor dem selben Problem, allerdings kenne ich nicht alle Namen in der Datei. Toll wäre es, wenn mir beim Aufruf dieser Inputbox alle Tabellennamen der Datei angezeigt werden würden und ich dann eins auswählen könnte (hier ohne weiteres analog des obigen Makros).
Oder gibt es da eine komfortablere Lösung?
LG
Tatjana