Mike, try this,

Sub name_sheets()
'will add a sheet, and name it
'for each name in column A
'from A1 down till it hits a blank row
Dim Rng As Range
Dim ListRng As Range
Set ListRng = Range(Range("A1"), Range("A1").End(xlDown))
For Each Rng In ListRng
If Rng.Text < "" Then
With Worksheets
.Add(after:=.Item(.Count)).Name = Rng.Text
End With
End If
Next Rng
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Mike D." wrote in message
...
Hi. I have a list of names in a workbook (cells A1 through A20). I would
like to have individual worksheet tabs with these names. Is there any way
(other than copy and paste) to create worksheet tabs with these 20 names?
VB
code would be acceptable here as well.