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!

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!

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!