【ExcelVBA】特定のシート名があるか確認する方法（For～Eachループ処理）

Dim ws As Worksheet
Dim CheckFlag As Boolean
Dim TargetName As String

    CheckFlag = False
    
    '調べる対象のシート名
    TargetName = "SheetC"
    
    '指定したシート名があるか（完全一致）
    For Each ws In Worksheets
　　　　’シート名が一致する場合
        If ws.Name = TargetName Then
　　　　　　’フラグをTrueにする
           CheckFlag = True
　　　　　　’ループを抜ける
           Exit For
        End If
    Next ws
    
    '結果をメッセージボックスで表示
    If CheckFlag = True Then
       MsgBox "「" & TargetName & "」シートが存在します。"
     Else
       MsgBox "「" & TargetName & "シートはありません。"
    End If

Dim ws As Worksheet
Dim TargetName As String
Dim Cnt As Integer

    CheckFlag = False
    
    '調べる対象の文字を設定
    TargetName = "Sheet"
    
    '指定したシート名があるか（部分一致）
    For Each ws In Worksheets
　　　　’シート名に対象の文字が含まれる場合
        If InStr(ws.Name, TargetName) > 0 Then
          'あったらカウントアップする
           Cnt = Cnt + 1
        End If
    Next ws
    
    '結果をメッセージボックスで表示
    MsgBox "シート名に「" & TargetName & "」を含むシートは" & Cnt & "個あります。"