Generating new file with multiple sheet template

Hello,

I have a file that is currently generating new files based on a template file + a list of names.

The problem is that the file is generating a new file but only for the first sheet of the template and the template file has 4 sheets.

This is what I have:

Sub SaveMasterAs()

 Dim wb As Workbook

 Dim rNames As Range, c As Range, r As Range

 Set rNames = Worksheets("Sheet1").Range("A2", Worksheets("Sheet1").Range("A2").End(xlDown))

 Set wb = Workbooks.Open(ThisWorkbook.Path & "\template_2021.xlsm")

 For Each c In rNames

 With wb

 .SaveAs Filename:=ThisWorkbook.Path & "\templates\" & c.Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 End With

 Set wb = ActiveWorkbook

 Next c

 wb.Close

End Sub

Can you please guide me in the right direction?