オンライン講座 質問と回答

何度もすみません。前段、前々段の投稿はミスがあったため、削除お願いします。

先生こんにちは。シートに削除対象外のシート名を記載するバージョンを（CountIfを使った方がすっきり書けますが、）フラグを使って書いてみました。
　違和感がありましたら、コメントお願いします。

Sub DeleteSheetsByFlag()
    '全てのシートについて
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        '削除対象フラグを設定。初期値はオン｡
        Dim sakujoFlagOn As Boolean
        sakujoFlagOn = True
        'NokosuList内の全ての値について
        Dim gyo As Long
        For gyo = 1 To ThisWorkbook.Sheets("NokosuList").Range("A" & Rows.Count).End(xlUp).Row
            'もしシート名がリストと一致したら
            '大文字小文字の差を吸収するため、両辺にUcaseを通す
            If UCase(ThisWorkbook.Sheets("NokosuList").Range("A" & gyo).Value) = UCase(Sh.Name) Then
            '削除対象フラグをオフに切り替える｡
                sakujoFlagOn = False
                Exit For
            End If
        '保存シート名ループ終了
        Next
        
        '削除対象フラグがTrueのままだったらシート削除
        If sakujoFlagOn Then
            Application.DisplayAlerts = False
                Sh.Delete
            Application.DisplayAlerts = True
        End If
    '全てのシートループ終了
    Next
End Sub

解説欄には「定数を使った方法、構造体を使っだ方法」と記載されていますが、実際の動画ではDPRの説明が主で、定数や構造体の説明は一切されていないように思います。

>>・残すシートリストを用意しておき、それに該当していない場合のみ削除
この方法は、私の書き方が悪いのかもしれませんが、結構コードが長くなってしまいました。その点、Select Caseは手軽に使えて便利だと思いました。

お世話になっております。いつも楽しく拝見しています。
１点だけ、ご検討のお願いがあります。
メインの動画タイトルを「本講座の動画一覧」と同じにしていただくと自分が全体のどの動画を観ているか把握しやすいです。
例）現在：講座で利用するテキスト
　　変更後：【動画9】講座で利用するテキスト
ご検討をお願いします。