SaveしてすぐOpenする真意は、ThisWorkBookのClose/Openイベントでの処理があるからなのですが、その他の点ではSave→Openは意味が無いです。ということで、Close/Openイベントでの処理をサブルーチン化して、イベントから呼ぶのと本マクロから呼ぶのとで共通処理するようにします。