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!
Bookmarks