>>
216 ゆきさん
こんばんは色々とご指導ありがとうございます。
↑で教えて頂いた事を試してみましたが、
ゆきさんがご推測の通り、状況は変わりませんでした。
それで、終了させる時のマクロを記載いたします。
何か、気づかれた事などありましたらご指導お願い致します。
お盆休みの折、ご報告遅くなりました事お詫びいたします。
Sub auto_close()
Application.ScreenUpdating = False
Dim sh As Object
For Each sh In Sheets
sh.Visible = True
Next sh
Dim mysheet As Object
Sheets("メニュー").Select
For Each mysheet In Worksheets
mysheet.Select
Range("A1").Select
ActiveWindow.DisplayHeadings = True ActiveWindow.DisplayOutline = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1
Next mysheet
Sheets("メニュー").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("メニュー", "基本情報", "決算表紙", "資産", "負債", "損益", "販棚", "原価", "利益処分", "注記事項", "営報表紙" _
, "推移", "要約BS", "要約PL", "経営分析", "試算表")).Select
Sheets("メニュー").Activate
Sheets("メニュー").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("sheet1").Visible = True
Sheets("sheet1").Select
Sheets("メニュー").Visible = False
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
Application.Quit
End Sub