• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Worksheet name

AlanSidman

Active Member
Here is VBA code to accomplish same

Code:
Option Explicit

Sub AddWS()
Dim s As Worksheet
Set s = Sheets("list")
Dim lr As Long, i As Long
lr = s.Range("A" & Rows.Count).End(xlUp).Row
Dim sname As String
    For i = 1 To lr
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = s.Range("A" & i)
    Next i
End Sub
 
Top