엑셀 회원 등급에 따라 시트 보이게 하는법

Sub Login_Success(userGrade As String)
    '변수설정
    Dim WS As Worksheet
    Dim EndRow As Long
 
    ' 각 시트를 돌아가면서 시트를 보임/숨김
    For Each WS In ThisWorkbook.Worksheets
        Select Case WS.Name
            '관리자일 경우 -> 직원 시트로 표시
            Case "로그인기록", "직원", "설정"
                If userGrade = 10 Or userGrade = 5 Then
                    WS.Visible = xlSheetVisible
                Else
                    WS.Visible = xlSheetVeryHidden
                End If
            '로그인 시트는 숨김
            Case "로그인"
                WS.Visible = xlSheetVeryHidden
            '나머지 시트는 표시
            Case Else
                WS.Visible = xlSheetVisible
        End Select
    Next
End Sub