EXCEL - 新增多張工作表

Sub 新增多張工作表()
Dim mySht As Worksheet
Dim x, y
x = InputBox("請輸入增加工作表的數量", "增加工作表")
For y = 1 To x Step 1
Set mySht = Worksheets.Add(After:=Sheets(Sheets.Count))
With mySht
.Name = y '設定工作表名稱
End With
Next y
Set mySht = Nothing '物件的釋放
End Sub