New Spreadsheet

[analyst3]

Hello I an excel workbook with 2 tabs. Clients and questions. I have a list of names about 50 in column A of the "Clients" sheet. I would like to create a macro that goes down that list and creates a new excel spreadsheet with the name of the client as the sheet name. The sheet I want to have copied over for each client is called "Questions", it has about 20 questions. So basically I would like to have the same sheet for the 50 clients and their name on the sheet. Ideally the macro would go down the list and create 50 sheets, same questions for all and the client name on each sheet. thanks again

 

[Fluff]

How about

Sub analyst()
   Dim Cl As Range
   
   With Sheets("Clients")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         If Not Evaluate("isref('" & Cl.Value & "'!A1)") Then
            Sheets("Questions").Copy , Sheets(Sheets.Count)
            ActiveSheet.Name = Cl.Value
         End If
      Next Cl
   End With
End Sub

 

[analyst3]

thanks one more question, is there a way to add account # on each of the newly created tabs ? the clients tab has an account number in column B next to each client name, is there a way to put that account number on the newly created sheet for that client in cell G8

 

[Fluff]

Yup, try

Sub analyst()
   Dim Cl As Range
   
   With Sheets("Clients")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         If Not Evaluate("isref('" & Cl.Value & "'!A1)") Then
            Sheets("Questions").Copy , Sheets(Sheets.Count)
            ActiveSheet.Name = Cl.Value
            ActiveSheet.Range("G8").Value = Cl.Offset(, 1).Value
         End If
      Next Cl
   End With
End Sub