Sub x()
Dim s$, table As Worksheet
s = InputBox("Tabellennamen eingeben", "welche Tabelle")
If s = "" Then Exit Sub
For Each table In ActiveWorkbook.Worksheets
If table.Name = s Then table.Activate: Exit For
Next
End Sub
Sub Blatt()
Dim b As String
b = InputBox("Namen eingeben")
On Error Resume Next
Sheets(b).Select
End Sub