Stuff

Sub GetSheet()

Dim S As String
Dim stav As Boolean
stav = False
S = InputBox("Nazev listu:")
    If S <> vbNullString Then
        For Each sesit In Sheets
            If InStr(1, sesit.Name, S) > 0 Then
                sesit.Select
                stav = True
                MSG = MsgBox("Hledat další?", vbYesNo, "Nalezeno")
                If MSG = vbNo Then
                    Exit Sub
                End If
            End If
        Next sesit
        If stav Then
            MsgBox "Další list nebyl nalezen"
        Else: MsgBox "List nebyl nalezen"
        End If
    Else: MsgBox "Nebylo zadáno jméno listu"
    End If
End Sub