VBA创建新工作簿并在内按要求创建新表

欢欢

Sub 新建工作簿指定工作表名()  '方法二
  Dim intName%, myRng&
   Application.ScreenUpdating = False
     myRng = Sheet1.[A65536].End(xlUp).Row
       Application.SheetsInNewWorkbook = myRng
        Workbooks.Add
For intName = 1 To myRng
    Sheets("sheet" & intName).Name = Sheet1.Cells(intName, 1)
Next intName
   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\小爪.xls"
     ActiveWorkbook.Close savechanges:=True
       MsgBox "创建完成！", 64, "欢乐小爪"
         Application.ScreenUpdating = True
End Sub