在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

运行代码，输入工作表名即可删除工作表，如果工作表不存在，则提示错误！