VBA TIPS - シートの存在確認

Dim flg As Boolean    ' シートの存在有無フラグ
Dim cnt As Long       ' ループカウンタ

For cnt = 1 To ThisWorkbook.Worksheets.Count
    ' シートが見つかったらフラグ設定
    If ThisWorkbook.Worksheets(cnt).Name = "シート名" Then
        flg = True
    End If
Next
If flg = False Then
    'シートが見つからなかった場合の処理
End If