【Excel VBA】テックでもハックと言うほどでもないけど、意外と便利 (2)

シート名リストからシートを（最後尾に）追加するやつ、自分用にカスタマイズ編

シート名を取得後、削除しておく仕様にしてあります。
要所ごとに参考にしたサイトＵＲＬをコメントしてあります。

Sub リストから追加シート作成()
  Dim rng As Range
  Dim i As Integer
i = 3
' B2～B列の最終入力行までのループ
For Each rng In Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row)
       ' Addメソッド Worksheets.Add(Before, After, Count, Type)
       ' 最後尾に新しいワークシートを追加: http://officetanaka.net/excel/vba/sheet/sheet03.htm
       Sheets.Add After:=Worksheets(Worksheets.Count)
       ActiveSheet.Name = rng.Value
       Debug.Print rng  ' https://tonari-it.com/excel-vba-debug-print/
       ' セルの値を削除
       Worksheets("タスク一覧").Range("B" & i).ClearContents  'https://www.tipsfound.com/vba/07004
       Debug.Print "B" & i
       i = i + 1  ' https://nyanblog2222.com/office/2261/
       Next rng
End Sub

追記
公開後に確認したら、インデントが無茶苦茶になってて泣いた。
なおす気力がわき次第修正いたします。