Worked great!! Thanks much!

"Ardus Petus" wrote:

Sub tester()
Dim rCell As Range
For Each rCell In Range("A1:A80")
With Worksheets.Add(after:=Worksheets(Worksheets.Count) )
.Name = rCell.Value
End With
Next rCell
End Sub

HTH
--
AP

"deeds" a écrit dans le message de news:
...
I have a list of names from cell A1..A80. I want to automatically create
that many tabs and name each tab by each name in the list. Can this be
automated? Thanks in advance!