インプットボックスでシート検索

Question

エクセルで非表示シートがたくさんあるので
インプットボックスを表示して､シート名を入力すると
非表示シートを､すべて再表示させたいです｡

上記は出来ていると思うのですが､シート名を検索して
シートが存在しなかった場合に､メッセージボックスを入れたいのですが
上手く表示されませんので､どのようにしたらよいか教えてください｡

下記のコードの場合､シートが存在する場合でも
メッセージボックスが表示されてしまいます｡

    Dim sh_find As String
    Dim i As Long


    sh_find = InputBox("シート名を入力してください。")

 
    For i = 1 To Sheets.Count
    
        If Sheets(i).Name Like "*" & sh_find & "*" Then
           Sheets(i).Visible = True
           Sheets(i).Select
           
        End If
        
    Next i
    
        If cnt = 0 Then
        MsgBox "検索したシートは存在しません｡"
        End If

Comments

[ttyp03]

まずはそのメッセージボックスを出そうとしているコードを提示してください。

[rr5yVNoTaBdJYQu]

申し訳ございませんでした｡

MsgBox "検索したシートは存在しません｡"

以上です｡
よろしくお願い致します｡

[ttyp03]

いや、そういうことではなく、それを組み込んだコードを提示してくださいということ。
質問は編集できるのでそちらにお願いします。
またコードはコードタグで括ってください。

[rr5yVNoTaBdJYQu]

申し訳ございませんでした｡
質問を修正して更新しました｡
よろしくお願い致します｡

[ttyp03]

んんん
「上手く表示されなかった」コードを提示してください。
あとコードはコードタグで括ってください。

Answer 1

時間かかりそうだから先に回答します。

コードを書くほどの内容ではないのでコードは割愛します。

以下のどちらかでよいと思います。

• 非表示にしたシート数をカウントして、ループが終わったあと0件ならメッセージボックスを表示
• 非表示にしたらフラグを立てて、ループが終わってもフラグが立ってなかったらメッセージボックスを表示

追記
提示いただいたコードに手を入れてみました。
説明するまでもないので、ご自分のコードと比較してみてください。
至極当たり前のことしかしていません。

Dim sh_find As String
Dim i As Long
Dim cnt As Long

sh_find = InputBox("シート名を入力してください。")

cnt = 0
For i = 1 To Sheets.Count

	If Sheets(i).Name Like "*" & sh_find & "*" Then
		Sheets(i).Visible = True
		Sheets(i).Select
		cnt = cnt + 1
	End If

Next i

If cnt = 0 Then
	MsgBox "検索したシートは存在しません｡"
End If

Comments

[rr5yVNoTaBdJYQu]

こちらの意図した通りのコードを記述いただきありがとうございました｡
この度は､色々とご迷惑をおかけして申し訳ございませんでした｡
また機会がございましたら､よろしくお願い致します｡