Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveWindow.DisplayHeadings = False
Range(Cells(1, 24), Cells(1, 2)).Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub