VBA每日问题系列：自动新增sheet

    今日网友需要新增sheet的代码，本来很简单的，昨日都已发了代码给他，他今日又说不对，这是有“多懒”，自己都不待的尝试修改下。。

Sub tt()
For i = 1 To 3
   Sheets('模板').Copy Before:=Sheets('移动')
   ActiveSheet.Name = 'ccc' & i
Next
End Sub

结果需求是：

最终结果：

代码：

Sub tt()

    Static a As Integer

    If Sheet1.TextBox1.Text = '' Then a = 0 Else a = Sheet1.TextBox1.Text

    a = a + 1

    Sheet1.TextBox1.Text = a

    Sheets('模板').Copy Before:=Sheets('移动')

    ActiveSheet.Name = '测试' & a

    Sheets('移动').Select

End Sub

新增个textbox控件来记录点击次数，也可以记录到单元格，怎么方便怎了来