vba除了某个sheet其他都隐藏

Option Explicit

Sub hide()
    Dim i As Integer
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> "四合院" Then
                Sheets(i).Visible = 0
            End If
            Next
End Sub