テンプレートのシートをリスト分コピーするマクロ

Option Explicit

Sub CreateSheets()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("リスト")
Set ws2 = ThisWorkbook.Worksheets("テンプレート")

Dim cmax1 As Long
cmax1 = ws1.Range("a65536").End(xlUp).Row

Dim i As Long
Dim sheetName As String
Dim newSheet As Worksheet

'
For i = 2 To cmax1

Dim lastSheet As Long

lastSheet = ThisWorkbook.Worksheets.Count
ws2.Copy after:=Worksheets(lastSheet)

sheetName = ws1.Cells(i, 3).Value
ActiveSheet.Name = sheetName



Next i

End Sub