Create Sheetnames from a list

[snoopyhr]

Thank you in advance for help,

I like to know how to create sheetnames from the list as this:

List
1000
2000
3000
4000

SO then each sheet is named respectively 1000 , 2000, 3000, 4000 etc.

Again thank you all in advance, appreciated.

 

[stnkynts]

Say your cells are in Range A1:A4. Then like this:

Sub celltosheetname()
Dim icell As Range
 
Application.ScreenUpdating = False
For Each icell In Range("A1:A4")
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = icell.Value
Next icell
Application.ScreenUpdating = True
 
End Sub

 

[snoopyhr]

Thank you stnkynts greatly appreciated