How to Add the desired Number of Sheets in Excel with VBA

VBA Macro to Add the desired No.of Sheets in Excel

Sub Add_Shts()

Dim x, Y

x = InputBox("Enter The No.Of Sheets To Insert :")

For Y = 1 To x

Sheets.ADD

Next Y

End Sub

Note:
This is a very user friendly macro that allows you to add any no.of sheets whose number is increased automatically[sheet1,sheet2,sheet3...Sheetn],even you run a macro for 'n' no.of times.