Try this:
I am Imagining the next part is to fill in the information automatically too...If you need help, then let me know![]()
Sub Auto_Quotes() Dim MyCell As Range, MyRange As Range Set MyRange = Sheets("Summary").Range("A2") Set MyRange = Range(MyRange, MyRange.End(xlDown)) For Each MyCell In MyRange Sheets("Template").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = MyCell.Value Next MyCell End Sub
ALSO: in future make sure any sheets you upload are anonymous!
Bookmarks