The below Auto_Close is suppose to restore the screen
display (toolbars visible) and workbook tabs when the user
closes the window by clicking the "X" button. Auto_Clsoe
doesn't work. Can someone help me with the code? I have
included the Auto_Open the turns off full screen and tabs
in case it has something to do with why Auto_Close doesn't
work.

Sub Auto_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayFullScreen = True

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
End If
Next

Worksheets("Scorecard").Select
ThisWorkbook.Colors(7) = RGB(255, 124, 128)

Application.AutoPercentEntry = True
Application.ScreenUpdating = True
End Sub

Sub Auto_Close()
ActiveWindow.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub