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

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



In article ,
"Alan L. Wagoner" wrote:

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