Copy & rename spreadsheet

[Brightspark98]

Hi,
What would be the quickest way to make 150 copies of a spreadsheet and rename them with an individuals name stored in column A of another spreadsheet?
hope this makes sense.

thanks

 

[bbott]

When you say "spreadsheet", are you referring to copying a workbook or just a sheet? If it's just copying sheets into the same workbook, take a look at this example. You can change the 15 to 150 after you test it. This also assumes that the names in column A are on the first sheet.

Sub AddShts()

    Dim x As Long
    
    Application.ScreenUpdating = False
    For x = 1 To 15
        Sheets(1).Copy after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Sheets(1).Range("A" & x)
    Next x
    Application.ScreenUpdating = True
    
End Sub

 

[My Aswer Is This]

When you say Spreadsheet do you mean Workbook or Worksheet?</SPAN>

 

[Brightspark98]

Sorry for the confusion, it is 150 copies of a workbook.

thanks