Is this code ok?

Private Sub Workbook_BeforeClose(cancel As Boolean)
Application.ScreenUpdating = False
Worksheets(2).Visible = xlVeryHidden
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Worksheets(5).Visible = xlVeryHidden
Application.StatusBar = "Saving..."
ActiveWorkbook.Save
End Sub


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.StatusBar = "Loading excel file..."
frmSplash.Show

ActiveWorkbook.Worksheets(1).EnableSelection = xlUnlockedCells
Worksheets(1).Activate
ActiveSheet.Range("C4").Select
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Worksheets(5).Visible = True
Application.StatusBar = "Ready"
End Sub

Does anyone have some suggestions, and would this work at excel 97?

Thanks in advance?