Sub main() On Error GoTo ErrorHandler Application.ScreenUpdating = False ' ここの処理を記載... GoTo FINALLY On Error GoTo ErrorHandler: Application.ScreenUpdating = True FINALLY: Application.ScreenUpdating = True End Sub