create a new sheet (individual name wise) based on name list same excel file

[sivaprakasam]

hi i am trying to VBA Excel version is 2013

i want create a new sheet (individual name wise) based on name list same excel file

eg.

i have mention into Sheet1
1 Pune is B2, to be create new sheet with same name
2 Chennai is B3, to be create new sheet with same name , , , Etc,.

 

[Logit]

Option Explicit

Sub CreateSheets()
    Dim dicKey, dicValues, data, lastrow As Long
    Dim i As Long, ws As Worksheet, wsDest As Worksheet
    Set ws = ActiveSheet
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    data = Range("B2:B" & lastrow) ' load data into variable
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(data)
            If .Exists(data(i, 1)) = False Then
                dicKey = data(i, 1) 'set the key
                dicValues = data(i, 1) 'set the value for data to be stored
                .Add dicKey, dicValues
                Set wsDest = Sheets.Add(After:=Sheets(Worksheets.Count))
                wsDest.Name = data(i, 1)
            End If
        Next i
    End With
End Sub

 

[sivaprakasam]

wow... lot of tnq very much

 

[Logit]

You are welcome.

 

[Marc L]

Hi !​

​

Just using Excel basics according to the TEBV main rule and as yet posted in this forum like in others, a beginner demonstration :​

Sub Demo1()
    Dim V, R&
        V = [A1].CurrentRegion.Columns(2).Value2
    For R = 2 To UBound(V)
        If Not Evaluate("ISREF('" & V(R, 1) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = V(R, 1)
    Next
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

 

[sivaprakasam]

lot of tnq very much