VBA过程代码131：在工作簿中添加工作表并将添加的工作表依次重命名。
Sub mynz()
Dim i As Integer
Dim sh As Worksheet
For i = 1 To 8
Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
sh.Name = i
Next
End Sub
代码的解析说明：上述过程使用For...Next 语句和Add方法在工作簿中添加8张工作表并将添加的工作表依次重命名。
VBA过程代码132：EXCEL工作表的添加与删除
Sub mynz()
Dim sh As Worksheet
For Each Sh In Worksheets
If Sh.Name = "MY" Then
MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表"
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
Application.DisplayAlerts = True
EXIT FOR
End If
Next
With Worksheets
Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
End With
End Sub代码的解析说明：上述过程是先检查工作表中是否含有“MY”工作表，如果有，立刻删除，最后使用Add方法在工作簿中新建“MY”工作表. For Each…. Next…. 将遍历工作表，检查原工作表中是否含有“MY”的工作表。
越简单的事物往往越容易理解，简单的过程组合起来就是一个复杂的过程，我们要先认真掌握这些简单的过程，才能在可以为我们复杂的工程服务。
下面是我根据自己20多年的VBA实际利用经验，编写的四部教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友选择。
① 第一套《VBA代码解决方案》PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备的资料。
② 第二套《VBA数据库解决方案》PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
③ 第三套《VBA数组与字典解决方案》PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备资料。
④ 第四套《VBA代码解决方案》视频教程。目前正在录制，现在推出“每天20分钟，半年精进VBA”活动，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册79讲的课程，第二级阶段的优惠期开始。