Create a new Blank Sheet for each value in a List

Good Afternoon

I am looking to create a new blank Sheet for each value, from A2 on a Sheet named Data. The indication to stop creating new sheets is a blank cell in the A column.

Regards
WashcareAsked:
Who is Participating?
 
Saqib Husain, SyedConnect With a Mentor EngineerCommented:
Sub gensheets()
For Each cel In ActiveSheet.Range("A2", Range("A2").End(xlDown))
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = cel.Value
Next cel
End Sub
0
 
WashcareAuthor Commented:
Many thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.