Try

Sub Auto_Open(
Dim ws As Workshee
Application.ScreenUpdating = Fals
Application.DisplayFullScreen = Tru

For Each ws In Worksheet
If ws.Visible = True The
ws.Activat
Range("A1").Selec
ActiveWindow.DisplayGridlines = Fals
End I
Nex

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

Application.AutoPercentEntry = Tru
End Su

Sub Auto_Close(
Dim ws As Workshee
Application.DisplayFullScreen = Fals
ActiveWindow.DisplayWorkbookTabs = Tru
For Each ws In Worksheet
If ws.Visible = True The
ws.Activat
Range("A1").Selec
ActiveWindow.DisplayGridlines = Tru
End I
Nex
Worksheets("Scorecard").Selec
End Sub