Add a worksheet using VBA

[Alan L. Wagoner]

I have a bunch of names in Sheet1, and would like to create a worksheet
programmatically for each name.

Sheet1 looks like:
Joe
Bob
Judy
Ann
....

Any suggestions would be greatly appreciated.

Regards,
Alan

 

[JE McGimpsey]

One way:

Public Sub AddSheets()
Dim rCell As Range
For Each rCell In Sheets("Sheet1").Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row)
Worksheets.Add(After:=Sheets(Sheets.Count)).Name = _
rCell.Value
Next rCell
End Sub