全シートから該当するシートが見つからなかったときの処理

いつも大変お世話になっております。
全シートを対象に探した結果、見つからなかったときの処理がわかりません。
下記コードに付け加えて頂ける方いらっしゃいましたらご教示お願い致します。
もしくは、ほかにスマートな書き方があればそちらのご提示をして頂けるとうれしいです。
宜しくお願い致します。

Sub test 23 ()
Dim tuu As String
Dim ws As Worksheet

tuu = InputBox("シートの検索したい文字を入力", "あいまい検索")
If tuu = "" Then Exit Sub

For Each ws In Worksheets
If ws.name Like "*" & tuu & "*" Then
Sheets("絞込み").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = ws.name
End If

Next

End Sub

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2017/05/07 19:52

以下のようにしてください。

Sub test23()
Dim tuu As String
Dim ws As Worksheet
Dim flag As Boolean
flag = False
tuu = InputBox("シートの検索したい文字を入力", "あいまい検索")
If tuu = "" Then Exit Sub

For Each ws In Worksheets
If ws.Name Like "*" & tuu & "*" Then
Sheets("絞込み").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Name
flag = True
End If

Next
If flag = False Then
MsgBox ("見つかりませんでした")
End If
End Sub

この回答へのお礼

nextのうしろにIf flag = False Thenを追加だったんですね。スッキリ解決です。
とても勉強になりました。
貴重なお時間割いていただき有難うございました。

お礼日時：2017/05/07 20:14