【VBA】開始処理、終了処理

 #VBA 
Sub ApplicationStartSetting( _
         Optional ByVal ScreenUpdating As Boolean = False _
       , Optional ByVal EnableEvents As Boolean = False _
       , Optional ByVal DisplayStatusBar As Boolean = False _
       , Optional ByVal Calculation As Boolean = xlCalculationManual _
   )
   On Error GoTo Catch
   
   With Application
       .ScreenUpdating = ScreenUpdating        '画面更新
       .EnableEvents = EnableEvents            'イベント発生
       .DisplayStatusBar = DisplayStatusBar    'ステータスバー表示
       .Calculation = Calculation              '再計算
   End With
   
   GoTo Finally
Catch:
   Debug.Print "■エラー【ApplicationStartSetting】" & vbCrLf & Err.Number & vbTab & Err.Description
Finally:
End Sub

 #VBA 
Sub ApplicationEndSetting( _
         Optional ByVal ScreenUpdating As Boolean = True _
       , Optional ByVal EnableEvents As Boolean = True _
       , Optional ByVal DisplayStatusBar As Boolean = True _
       , Optional ByVal Calculation As Boolean = xlCalculationAutomatic _
   )
   On Error GoTo Catch
   
   With Application
       .ScreenUpdating = ScreenUpdating        '画面更新
       .EnableEvents = EnableEvents            'イベント発生
       .DisplayStatusBar = DisplayStatusBar    'ステータスバー表示
       .Calculation = Calculation              '再計算
   End With
   
   GoTo Finally
Catch:
   Debug.Print "■エラー【ApplicationStartSetting】" & vbCrLf & Err.Number & vbTab & Err.Description
Finally:
End Sub