【VBA】シートコピーの繰り返しで同じシートを複数作成【Copyをループする】

【VBA】シートコピーの繰り返しで同じシートを複数作成【Copyをループする】
　
シート名をリストから取得して同じシートを複数作成
　
元シートとリストを作成しておく

　
リストを作成しておきます。

　
シート名をリストから取得して同じシートを複数作成

Sub TEST3()
  
  For i = 2 To 6
    '「元」シートを、最終シートにコピー
    Sheets("元").Copy after:=Sheets(Sheets.Count)
    'リストの名前を入力
    Range("B1") = Sheets("リスト").Cells(i, "A")
    'シート名を変更
    ActiveSheet.Name = Sheets("リスト").Cells(i, "A")
  Next
  
End Sub

実行結果：