我有一些代码创建工作表,如果工作簿中已经存在具有相同名称的工作表,则将其删除。如果存在重复,则代码应跳至Errmsg
以创建警报并执行。但是,当工作表不是重复项时,尽管前面有一个Exit Sub命令,它仍会遍历其余代码和错误消息,但仍会继续运行,因此删除了刚刚创建的工作表。
任何帮助将不胜感激,谢谢!
On Error GoTo Errmsg
'Some code
Exit Sub
Errmsg:
MsgBox "Worksheet with that name already exists, please edit the test iteration"
Application.DisplayAlerts = False
With ActiveWorkbook
.Worksheets(.Worksheets.Count).Delete
End With
Application.DisplayAlerts = True
End Sub