实现在活动工作簿中自动新建工作表并将其重命名为“工资汇总”。
（1）打开VBE窗口，点击菜单“插入”——“模块”，在模块中新建一个模块（若删除模块，可点击删除模块对象，右键选择移除模块，这时弹出一个框“移除模块前是否导出”据自己情况选择。），同时自动弹出其代码窗口，若不弹出则可双击该模块对象打开其代码窗口；将光标定于模块的代码窗口中，点击菜单“插入”——“过程”，弹出“添加过程”对话框，输入名称AddSheet，点击确定，在模块对应的代码窗口自动生成自定义过程框架；在AddSheet过程框架中输入代码，实现自动新建名为“工资汇总”，代码如下：
Public Sub AddSheet（）
’新建工作表，命名为“工资汇总”
Dim ws As Worksheet
Set ws = Worksheets.Add
ws.Name="工资汇总”
End Sub
点击工具栏中的三角形按钮，运行模块中的AddSheet过程，执行代码后，当前工作簿中新增一张名为“工资汇总”的工作表。
（2）若要再自动生成另一个工作表并命名为其他名称，可在上面的代码中第二个“工资汇总”改为另一个名称，再点击三角形运行即可在当前工作簿中生成一张新的工作表，比如：
（3）若要保存代码，将其所在工作簿保存类型为“Excel启用宏的工作簿”。