VBA小程序--异常捕获（类似Try）异常处理，报错机制

Sub name_err1()
    '因为异常捕获是子程序，所以不会影响主程序的报错机制，所以 "On Error GoTo 0" 加不加这句话都会正常报错,而不会跳转到子程序的异常陷阱之中...
    On Error GoTo ERR_1 '异常陷阱，异常捕获
    Worksheets("工作表目录").Activate   '这里可以变更为自己需要的程序语句
    Exit Sub    '没有遇到异常，则退出子程序，请勿携程End Sub，不然会报错："标签未定义"
ERR_1:  '如果执行错误，则新建工作表
    Worksheets.Add.name = "工作表目录"  '这里可以变更为自己需要的程序语句
End Sub