シート非表示

Sub ResetSheetVisibility_TestPrep()
    
    Dim ws As Worksheet

    ' アクティブシートは非表示にできない（実行時エラー）ため、先にメインへ退避
    ThisWorkbook.Worksheets("メイン").Activate

    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "●", "◯"
                ws.Visible = xlSheetVisible   ' 表示のまま
            Case Else
                ws.Visible = xlSheetVeryHidden
        End Select
    Next ws
    Application.ScreenUpdating = True
End Sub