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
