用代码新建工作表并命名工作表，确定工作表在整个工作簿的位置

wendy23456789

各位大神，求助！！！

请问想要利用VBA代码新建三个工作表，并且这三个工作表要放在sheet7（季度报表）的前面。
请问我的代码是有啥问题呢？
worksheets.add before:=sheet7,3

但是，我写成worksheets.add, sheet7,3 ——这个语句是代表着在工作表sheet7后面创建三个工作表，这条代码是能够执行成功的。

问题2：如果我想要在新建三个工作表，并且三个工作表放在sheet7（季度报表）前面的前提下，为这三个新建的工作表命名如何实现呢？
我之前有学过为一个新建的工作表命名：代码是：worksheets.add(before:=sheet7).name =" 命名的工作表名称"

以上就是我的小问题！烦请大神帮忙看看！谢谢啦！

ykcbf1100

建议上传一个附件，以更快解决问题

ykcbf1100

Sub 插入三个表()   ‘//供参考
   ' 在工作表“季度报表”前插入三个新表
    For i = 1 To 3
        Set ws = Sheets.Add(Before:=Sheets("季度报表"))
        ws.Name = "表" & i
    Next i
End Sub

dambcer

循环三次 worksheets.add(before:=sheet7).name =" 命名的工作表名称"

excel玉米

for i=1 to 3
  new_name=inputbox("请输入新增的工作表名称","ExcelHOME")
  worksheets.add(before:=sheet7).name =new_name

next i

wendy23456789

好的，谢谢大家的帮助！