自分用メモなので記載が少ないのは悪しからず
Public Sub Exec()
Call DoInitialize
Call DoExecute
Call DoFinalize
End Sub
'メイン処理
Private Sub DoExecute()
End Sub
' 初期処理
Private Sub DoInitialize()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.StatusBar = ""
End Sub
' 終了処理
Private Sub DoFinalize()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.StatusBar = ""
End Sub