VBA:尽管事先有“退出子”命令,错误消息代码仍在执行

时间:2019-10-30 11:09:47

标签: excel vba error-handling messagebox

我有一些代码创建工作表,如果工作簿中已经存在具有相同名称的工作表,则将其删除。如果存在重复,则代码应跳至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

0 个答案:

没有答案