お世話になります。
するどいツッコミ頂いたので（笑）
フォローアップセミナーのうち、最低でも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構文を迷わず書けたのには嬉しくなりました。

楽しいです！