• 删除存在的工作表。如果工作表不存在，则会返回错误。

Sub 删除工作表() 
      Worksheets("小强").Delete
End Sub

• 将工作表放进对象变量，判断工作表是否存在(有时候需要判断工作表是否存在，然后再进行删除操作)

Sub 判断工作表是否存在()
1:        Dim Sht As Worksheet
2:        On Error GoTo line
3:        Set Sht = Worksheets("小强")
4:        MsgBox "工作簿中已有工作表" & "【" & Sht.Name & "】"
5:        Exit Sub'退出过程
line:
6:        MsgBox "工作簿中没有""小强""工作表!"
End Sub

• 如果不存在‘小强’工作表，则Sht就是nothing,会发生错误。
• On Error GoTo line 当发生错误时，代码跳转到 line:所在的位置，两个语句中间的代码（第3行~第5行）将不会被执行，系统会继续执行 line:后面的第6行代码。

• 通过循环来判断工作表是否存在

Sub 工作表是否存在1()
    Dim sn As String
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        sn = Sht.Name'工作表名称
        If sn = "abc" Then
            MsgBox "存在工作表abc"
            Exit Sub'退出过程
        End If
    Next
    MsgBox "不存在工作表abc"
End Sub

• 批量删除工作表
  -练习:只保留【小明】一个工作表，其他全部删除

练习

Sub 批量删除工作表()
    Dim Sht As Worksheet
    Application.DisplayAlerts = False '关闭提示
    For Each Sht In Worksheets'遍历所有工作表
        If Sht.Name <> "小明" Then'如果工作表名称不是‘小明’
            Sht.Delete'删除工作表
        End If
    Next
    Application.DisplayAlerts = True
End Sub