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.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
