Need to create new sheets with names from Array

[mpatino]

Hi Experts,

I need to create new worksheets using the names stored in an Array, however, when I run my code it creates the right amount of sheets, but the names are not been assigned to the new worksheets, so I was wondering if one of you could point my mistake, below is my code:

Sub createSheets()


Dim WsName As Variant
Dim WsNames() As Variant
Dim ws As Worksheet
Dim i As Variant

WsNames() = Array("ABC", "BCD", "CDE", "DEF", "EFG")


i = i + 1

For Each WsName In WsNames()
Set ws = ThisWorkbook.Sheets.Add(After:= _
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
WsName = WsNames(i)


Next WsName

End Sub

 

[mumps]

Try:

Sub createSheets()
    Application.ScreenUpdating = False
    Dim WsNames As Variant
    Dim i As Long
    WsNames = Array("ABC", "BCD", "CDE", "DEF", "EFG")
    For i = LBound(WsNames) To UBound(WsNames)
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = WsNames(i)
    Next i
    Application.ScreenUpdating = True
End Sub

 

[mpatino]

Thanks a lot for your quick reply mumps, love your quote. Btw, this works perfectly

 

[mumps]

You are very welcome and thank you for the feedback.