problem hide the first sheet instead of last sheet & type mismatch

[MKLAQ]

Hello
I try desighn macro by hide all of sheets except "sheet2" but the code hide also "sheet2" and keep the last sheet is showed and gives mismatch error in this line

Sheets(ws).Visible = xlSheetVeryHidden

Option Explicit
Sub nn()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> "Sheet2" Then
Sheets(ws).Visible = xlSheetVeryHidden
End If
Next
End Sub

How can I fix it please?

 

[dmt32]

Hi
try

Option Explicit
Sub nn()
    Dim ws          As Worksheet
    
    With Worksheets("Sheet2")
        .Visible = xlSheetVisible
        For Each ws In Worksheets
            If ws.Name <> .Name Then ws.Visible = xlSheetVeryHidden
        Next
    End With
    
End Sub

Dave

 

[nageswararao]

Modify sheets(ws) to ws. That's it.

 

[MKLAQ]

thanks guys for your help