Friday, 31 August 2012

Macro To Add Desired No.Of Sheets

Macro To Add Desired No.Of Sheets

Sub ADD()
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 'n' no.of times.

No comments:

Post a Comment

Follow Me by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts