1: 2: 3: 4: 5: 6:
Case LCase("jane") For Each ws In ThisWorkbook.Worksheets If LCase(ws.Name) = LCase("jane_sheet") Then ws.Visible = xlSheetVisible Else ws.Visible = xlSheetVeryHidden End If Next