VBA script to add 4 new worksheets at the end of a workbook

[rmehta]

Hi,

I was wondering if somebody could help me with the VBA syntax to add 4 new worksheets in a workbook. I'd like the 4 new worksheets to be added at the end of the existing worksheets

Any help would be much appreciated

Regards,

Roopal

 

[VoG]

Hi. Try this

Sub AddSheets()
Dim i As Long
For i = 1 To 4
    Sheets.Add after:=Sheets(Sheets.Count)
Next i
End Sub

 

[rmehta]

Thank you