Hello: I have a macro enabled worksheet that I would like to essentially "save as" multiple workbooks, with each file name based on a list of cell values. My file names are listed in column A of sheet 1, while my second worksheet (titled "Template") is what I would like to duplicate and "save as" multiple times based on my list of file names on sheet 1. I found a code (pasted below) that can copy my "Template" worksheet multiple times based on my list, but I would like to instead save them as separate macro-enabled files (e.g. workbooks) instead of separate worksheets in the same workbook. I've tried several codes and none seem to work. I am also open to using the code below to create the separate sheets, and then using a second code to extract those sheets into separate workbooks...either one will work. I am using Excel 2013 (Windows 7). Thank you!
Sub AddSheet()
Application.ScreenUpdating = False
Dim bottomA As Integer
bottomA = Range("A" & Rows.Count).End(xlUp).Row
Dim c As Range
Dim ws As Worksheet
For Each c In Range("A1:A" & bottomA)
Set ws = Nothing
On Error Resume Next
Set ws = Worksheets(c.Value)
On Error GoTo 0
If ws Is Nothing Then
Sheets("Template").Select
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
End If
Next c
Application.ScreenUpdating = True
End Sub
Sub AddSheet()
Application.ScreenUpdating = False
Dim bottomA As Integer
bottomA = Range("A" & Rows.Count).End(xlUp).Row
Dim c As Range
Dim ws As Worksheet
For Each c In Range("A1:A" & bottomA)
Set ws = Nothing
On Error Resume Next
Set ws = Worksheets(c.Value)
On Error GoTo 0
If ws Is Nothing Then
Sheets("Template").Select
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
End If
Next c
Application.ScreenUpdating = True
End Sub