Name sheet tabs with a cell list

[deeds]

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!

 

[Ardus Petus]

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

 

[deeds]

Worked great!! Thanks much!

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