Hello everyone;

I'll first explain what I have:

A1 contains a numerical value for the number of team members. Based upon this value, it is possible to unlock Cells A2 through A11. Otherwise, cells A2 through A11 are locked a corresponding number is placed.
A2 through A11 contains the names of the team members. Of course, You can only put in as many team members as you have in A1.


What I would like to do:
Create a unique Tab for each team member, but only for A1 team members, renaming each tab for their name...

I found this code:
Sub SheetCreation()
Dim lngSheets As Long, lngi As Long
lngSheets = Sheets("sheet1").Cells(1, 1)
For lngi = 1 To lngSheets Step 1
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Split(Cells(1, lngi).Address, "$")(1)
Next lngi
End Sub
And I think that could work for creation, but I'm unsure how to have this rename things as well. Any advice? Or any additional clarification I could offer?


Actually, Could I just use a Count on A2:A12 instead of using A1?