I'll be back IN 5 minutes.Sounds nice. | 【三度の飯より英語が好き！】 http://e-syugyoku.com/modules/melmaga/index.php?id=11

1.マクロ冒頭に ActiveWorkbook.Save を入れておく 2.マクロ終了後、以下を実行。 Sub 元に戻す() Dim CurName As String CurName = ActiveWorkbook.Fullname ActiveWorkbook.Close Savechanges:=False Workbooks.Open CurName End Sub