Could someone please fix this code for me...

Could someone please fix this code for me..thanks..
When I run it...I get an error..I'm using Excel 97

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Macros Not enabled").Visible = True
for Each ws In Worksheets
If ws.Name <> "Macros Not Enabled" Then ws.Visible = xlVeryHidden
Next
End Sub

Private Sub Workbook_Open()
For Each ws In Worksheets
If ws.Name <> "Macros Not Enabled" Then ws.Visible = True
Next
Worksheets("Macros Not Enabled").Visible = xlVeryHidden
End Sub