VBA创建工作薄并命名里面的工作表名称，并赋值的代码是怎样的

Question

要创建的工作薄名称放在主文件sheet1的AI中，要创建的工作薄的工作表10个，名称放在主文件sheet1的A2：A11中，创建后将主文件的Sheet2到Sheet12里面的内容依次复制到创建的工作薄的sheet1到sheet10中。
怎样写代码搞定。

Answer 1

通过记录宏的方式得到下面这个代码。
Sub Macro1()
' Macro1 Macro
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\Think\Documents\myfile.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
注：要学习vba编程，这个记录宏功能要好好利用。