Create Multiple worksheet in a workbook

[dax007]

Hello,
I'm able to create a multiple worksheets using following VBA code,

Option Base 1

Sub AddMultipleSheetswithNames()
Worksheets.Add After:=Sheet1, Count:=4
Dim p, q As Integer
Dim Sheetname

Sheetname = Array("A", "B", "C", "D", "E")
p = Worksheets.Count
For q = 1 To p
With Worksheets(q)

.Name = Sheetname(q)
End With
Next q

End Sub

It does create new worksheets with name A through E but it remove the sheet1 ( that was originally with the workbook). so what should I modify in above code to keep the sheet1 and then add new worksheets A through E?

Any help would be appreciated.

Thank you.

[Norie]

Change 1 to 2 in the loop.


PS When posting code can you please use CODE tags?

[dax007]

Thank you for your quick reply. Per your suggestion I changed the for loop
For q=2 to p
Now it's keeping the sheet1 but it starts from B instead of A.
Any further help?

Thanks again..

[Norie]

Oops, forgot you were using the loop variable in an array.

Within the loop try using this.

Please Login or Register  to view this content.

[dax007]

Thank you for your help. it worked as expected.

[Fluff13]

Another option

Please Login or Register  to view this content.

[dax007]

Thank you for your help

[Fluff13]

You're welcome & thanks for the feedback

[YasserKhalil]

@Fluff
At this line it should be to 0

Please Login or Register  to view this content.

[Fluff13]

The OP is using Option Base 1, so it needs to be 1 not 0

[YasserKhalil]

Thanks a lot for the information. I didn't notice this line (Sorry for that mistake)

[Fluff13]

No apology needed
and thanks for the rep

[dax007]

THANK YOU All for your help on this problem...