【Excel VBA】マクロを簡潔にしたい マクロの簡略化

このマクロを ①より早く、又は ②より簡潔に できないでしょうか？何卒ご教授願います。
※Win8.1/７、Excel2010です。

Sub Auto_Open()

Application.ScreenUpdating = False
ActiveWorkbook.EnableAutoRecover = False '''自動保存の無効
Call シートの選択 '''追記ここから
'''Application.StatusBar = "" '''小連絡用　要StatusBar表示
Application.CellDragAndDrop = False
'''Call Auto_Jump '''追記ここまで

CommandBars("Cell").Enabled = False '''右クリック不可
Application.ScreenUpdating = True
Call Auto_Jump


End Sub

Sub Auto_Close()

Application.Visible = False
Application.WindowState = xlMinimized
Application.DisplayAlerts = False
CommandBars("Cell").Enabled = True '''右クリック可
ActiveCell.Activate '''追記ここから
Application.CellDragAndDrop = True
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1 '''追記ここまで

Application.Visible = True
UserForm2.StartUpPosition = 3 '''UserForm表示
UserForm2.Caption = ""
UserForm2.Show vbModeless
UserForm2.Repaint

ThisWorkbook.Activate
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
Call ●見出しを表示する
Unload UserForm2 '''UserForm非表示
ActiveWorkbook.Close

End Sub

No.3 回答者： kumano_SEC 回答日時： 2016/01/30 17:56

こんにちは、

より速く・簡潔に。ということですが、設定をしている行が多いですね。これだけでは、不要行が判断できません。
単に、行を短くしたいだけなら、定型の設定を一行にまとめるだけでも見やすくなるかと思います（見る人によりけりですが）。

Application.Visible = False
Application.WindowState = xlMinimized
Application.DisplayAlerts = False
（上の３行を１行にまとめた場合）
With Application: .Visible = False: .WindowState = xlMinimized: .DisplayAlerts = False: End With

あと、「Application.ScreenUpdating=...」は、いらないかと思います。

では

No.2 回答者： sefp 回答日時： 2016/01/30 17:12

あー、延々書かれたマクロのコードを、わざわざいちいち解析する気にはなりませんで！(-_-;

それより、何をどうしようという「概要」を書いていただいた方が、全然役立ちますのに・・・

No.1 回答者： nokirag 回答日時： 2016/01/25 14:22

>このマクロを ①より早く、又は ②より簡潔に できないでしょうか？何卒ご教授願います。

①がどれをさしているのかわかりません。
②がどれをさしているのかわかりません。

Auto_Jump がありません。
何卒ご教授願います。