在excel工作簿中，删除工作表很简单，只需要右键-删除即可。
但是有时我们希望通过动态输入具体的工作表名，删除该工作表。如下代码：
Sub vba删除工作表()
Dim ws As Worksheet
Dim str As String
str = Application.InputBox("输入需要删除的工作表：", "删除工作表", "sheet1")
On Error GoTo err
Set ws = Worksheets(str)
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit Sub
err:
MsgBox "您删除的工作表不存在！"
End Sub
运行代码，输入工作表名即可删除工作表，如果工作表不存在，则提示错误！
