Can I create a tab for each name in a column from tab 1

[touque]

I have a summary tab as the first tab in my workbook. Column A contains a list of over 200 people.
From this list of 200 people is there a way that I can automatically have a separate tab for each of the 200 plus names?
By automatically I mean without creating and naming all 200 plus manually.

 

[Fluff]

Untested, but try

Sub AddNameShts()

   Dim Cl As Range
   
   With Sheets("Summary")
      For Each Cl In .Range("A2", .Range("A" & Rows, Count).End(xlUp))
         Sheets.Add(, Sheets(Sheets.Count)).Name = Cl.Value
      Next Cl
   End With
End Sub

 

[touque]

THanks Fluff I’ll try it tomorrow!