何とかこの回まではできました。次回の予習も行います。

前回の予習では、私はIf文にAndで"main"と"main2"を設定しましたが、

解説のIf Left(sh.Name, 4) <> "main" Then
はスマートですね。

Application.DisplayAlerts は、変数宣言後にFalseと設定
プログラムの終わりにTrueと設定し元に戻すのですね。

最初に解説をよく見ないで最後に、Application.DisplayAlerts を設定し
あれ効かない？！と焦って、ネットで暫く調査していました。
しかも運が悪いことに、2016年当時の某サイトの投稿でExcel for 2016だとDisplay Alertsは効かないと書いてある投稿を見て、回避策はないものか暫くさがしていました。。。
しかし、セミナーの動作確認済みデータを確認した所、正常動作。
改めて確認した所、単純な設定ミスでした。
自分はmacOS版のエクセルを使っているので、少し動作がおかしいと
直ぐにmacOS版だから動作が変なのか？！と疑ってしまう癖があって反省です。(^^；

お世話になります。
するどいツッコミ頂いたので（笑）
フォローアップセミナーのうち、最低でも3回に1回は感想を送ります！
言い訳になりますが、今朝ちょうど取り組んでいたところだったのですごくタイムリーでおかしかったです（笑）
ようやく第3回フォローアップセミナーまで進みました。
追加したシートを選択するのに、ActiveSheet.Nameで指定しましたが、問題ないでしょうか？
解答例では、Sheets("main1 (2)").Nameでシート名が指定されていました。
課題通り動いています。
こんな質問していいか迷いましたが、少し気になりましたので、よろしくお願いいたします。

″プロシージャ内で、別のプロシージャを呼んでくる”という発想が全くなかったので、凄い！と感心しました。

″プロシージャ内で、別のプロシージャを呼んでくる”という発想が全くなかったので、凄い！と感心しました。

とりあえず、ここまで追いつきました。
予習問題[1]～[3]は、シートをコピーする際、一番後ろに挿入するようにしていればやりやすかったと思うのですが、とりあえずIF文でやってみました。
予習問題[4]では、Format関数を使ってみました。

3回まで来ました。
頭がキツくなってきましたね～
これは全フォローアップセミナーを3週くらいやって
体に叩き込む必要がありそうです。

えー放置とのことですのでw
自力で書いてるマクロを掲載します。
マズいようなら削除して下さい。
もちろん解説どおりのマクロはその後で別に書いてます。
後々どのような問題が発生するのかこれはこれで書いていこうと思います。

Sub Macro1_1()    Dim cnt As Long    Dim ssg As Long    Dim wsdata As Worksheet    Dim wsformat As Worksheet        Call sheetdelet    ssg = Worksheets("main").Range("b65536").End(xlUp).Row        Set wsdata = Worksheets("main") '元データ    Set wsformat = Worksheets("main1") '伝票フォーマット        Debug.Print ssg    For cnt = 2 To ssg            wsformat.Copy After:=Worksheets(cnt)            ActiveSheet.Name = wsdata.Range("b" & cnt).Value        Next    End SubSub sheetdelet()    Dim ws As Worksheet    Application.DisplayAlerts = False    For Each ws In Worksheets        If Left(ws.Name, 4) <> "main" Then            ws.Delete        End If    Next        Application.DisplayAlerts = TrueEnd Sub

シート削除の警告が連続した時は少し驚きましたが、
For each構文を迷わず書けたのには嬉しくなりました。

楽しいです！