XlSheetVeryHidden code before close (Method Error)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    Select Case UCase(ws.Name)
        Case "Ark1", "Ark2"
            ws.Visible = True
        Case Else
            ws.Visible = xlSheetVeryHidden
    End Select
Next ws
End Sub

I'm getting a:

Method 'Visible' of Object '_Worksheet' failed

What am I doing wrong? Thanks for you help.

Ron

hi,
see if it helps you

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    Select Case (ws.Name)
        Case "Ark1", "Ark2"
            ws.Visible = True
        Case Else
            ws.Visible = xlSheetVeryHidden
    End Select
Next ws

you're welcome! thx for rep!
If your problem is solved, please say so clearly, and mark your thread as Solved: Click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes.