From /forum.php?mod=viewthread&tid=470603&page=23#pid3118642
新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。
如果我们想在当前工作表中新建一个工作表，代码可以写为：
Worksheets.Add '新建的工作表的位置在当前活动工作表的前面
此时，新建的工作表Excel默认把它放在活动工作表的前面，如果我们需要改变它的位置也是可以的。例如：
Worksheets.Add before:=Worksheets("sheet2") '在工作表sheet2之前添加一个工作表Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个工作表"Worksheets.Add after:=Worksheets(Worksheets.Count) '在最后面添加一个工作表
试了以上的代码，我们会发现，新添加的工作表都是采用“老大、老二、老三.....”的命名方式，如果你需要为新添加的工作表改一个名字，也是可以的，只需要再添加一句代码即可：
Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表ActiveSheet.Name = "abc" '将新建的工作表更名为“abc”
如果想更简单点，这句代码还可以合二为一：
Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表
有时，也许需要一步就添加多个工作表，那可用下面的代码：
Worksheets.Add Count:=3 '添加三个工作
