敬请帮助修改VBA代码

huarong7984

各位大师，你们好。

VBA代码求助：

各位大师，希望每次答题完毕后，点击“保存答题结果”按钮，即可分别以《当前月日+答题结果+保存的先后次序数》为新工作表标签名，保存在本工作薄中，如“3月18日答题结果”、“3月18日答题结果(2)”……“3月19日答题结果”、“3月19日答题结果 (2)”、“3月19日答题结果(3)”……，但不保存“保存答题结果”这个按钮。

敬请VBA高手指教：如何修改以下代码，达到上述要求？

Sub复制工作表()                                                '定义子程序名称

Sheet2.Copyafter:=Sheets(Sheets.Count)        '将答题结果以“练习题(N)”为标签名，依次保存到本工作薄原有标签的最右侧

Sheet2.Activate                                                  '工作表2(即《练习题》)处于当前激活

EndSub                                                              '结束子程序

       万分感谢！

半百

请测试。。。

huarong7984

半百(UID: 3440961)：您好！
      谢谢您的完美帮助！