Assuming column of names is A

Sub Add_Sheets22()
Dim rCell As Range
For Each rCell In ActiveSheet.Range("A1:A80") 'edit range to suit
With Worksheets.Add(After:=Worksheets(Worksheets.Count) )
.Name = rCell.Value
End With
Next rCell
End Sub

No error-trapping so will crash out if blank cells in the range.


Gord Dibben MS Excel MVP

On Wed, 12 Aug 2009 14:41:02 -0700, Bailey
wrote:

I would like to convert a column of names into individual sheets