Insert Sheets at Last with Name

[arijitirf]

Hi!!!!!

I have a workbook with 500 + Sheets and I want to insert 10 sheets or more sheets to this workbook with name. For example...


I want to insert 10 sheets namely "Stock Code" after last sheet i.e. Stock Code 501. Result will be like Stock Code 502, Stock Code 503 and on...

Thanks in advance...

 

[MARK858]

Try...

Sub AddSht()
    Dim i As Long
    For i = 1 To 20
        Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Stock Code 5" & Format(i, "00")
    Next
End Sub