自分用メモなので記載が少ないのは悪しからず

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