マクロ高速化とTry文

---

Sub main()
    On Error GoTo ErrorHandler
    
    Application.ScreenUpdating = False

    ' ここの処理を記載...

    GoTo FINALLY
On Error GoTo ErrorHandler:
    Application.ScreenUpdating = True
FINALLY:
    Application.ScreenUpdating = True
End Sub


            

---