Hello All,

I'm working on a macro that will create new sheets based on employee names in a sheet titled "SUMMARY REPORT" as well as copy the format of my sheet called 'Template" and add it to every new sheet i make.

So far i have this code that successfully makes all the new sheets and renames them with the employee name but i cant figure out how to also copy the format.

Sub addsheets()
     
    Dim MyRnge As Variant
     
    MyRnge = Sheets("SUMMARY REPORT").Range("A2:A47")
     
    For i = 1 To UBound(MyRnge, 1)
         
        Sheets.Add.Name = MyRnge(i, 1)
         
    Next i
     
End Sub
The specific template i am trying to copy goes from A1:R3 in my "Template" sheet. If anyone has any pointers or thinks they know how to do this I would greatly appreciate the help!