Hide/Unhide Rows on different sheets based on cell value from one main sheet

R

Ryle23

New Member
Joined
Apr 13, 2021
Messages
16
Office Version
  1. 2016
Platform
  1. Windows
Good day,

I really dont have any idea about codes and im just searching for ideas on Youtube.

My case here is that I want to hide rows on "Masterlist" sheet [Main sheet where cell value will be updated] and also on other sheets (Attendance , Raw Scores, Final Ratings).

this is my current code (This works when I want to update the Masterlist sheet)

VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="1234"

If Not Application.Intersect(Range("I2"), Range(Target.Address)) Is Nothing Then
    
    Select Case Target.Value
        
        Case Is = "50": Rows("12:61").EntireRow.Hidden = False
                        
        Case Is = "49": Rows("12:60").EntireRow.Hidden = False
                        Rows("61").EntireRow.Hidden = True
                                              
        Case Is = "48": Rows("12:59").EntireRow.Hidden = False
                        Rows("60:61").EntireRow.Hidden = True
                        
        Case Is = "47": Rows("12:58").EntireRow.Hidden = False
                        Rows("59:61").EntireRow.Hidden = True
                        
        Case Is = "46": Rows("12:57").EntireRow.Hidden = False
                        Rows("58:61").EntireRow.Hidden = True
        
        Case Is = "45": Rows("12:56").EntireRow.Hidden = False
                        Rows("57:61").EntireRow.Hidden = True
                        
        Case Is = "44": Rows("12:55").EntireRow.Hidden = False
                        Rows("56:61").EntireRow.Hidden = True
                                    
        Case Is = "43": Rows("12:54").EntireRow.Hidden = False
                        Rows("55:61").EntireRow.Hidden = True
                        
        Case Is = "42": Rows("12:53").EntireRow.Hidden = False
                        Rows("54:61").EntireRow.Hidden = True
                        
        Case Is = "41": Rows("12:52").EntireRow.Hidden = False
                        Rows("53:61").EntireRow.Hidden = True
                        
        Case Is = "40": Rows("12:51").EntireRow.Hidden = False
                        Rows("52:61").EntireRow.Hidden = True
                                        
        Case Is = "39": Rows("12:50").EntireRow.Hidden = False
                        Rows("51:61").EntireRow.Hidden = True
                       
        Case Is = "38": Rows("12:49").EntireRow.Hidden = False
                        Rows("50:61").EntireRow.Hidden = True
                        
        Case Is = "37": Rows("12:48").EntireRow.Hidden = False
                        Rows("49:61").EntireRow.Hidden = True
                        
        Case Is = "36": Rows("12:47").EntireRow.Hidden = False
                        Rows("48:61").EntireRow.Hidden = True
        
        Case Is = "35": Rows("12:46").EntireRow.Hidden = False
                        Rows("47:61").EntireRow.Hidden = True
                        
        Case Is = "34": Rows("12:45").EntireRow.Hidden = False
                        Rows("46:61").EntireRow.Hidden = True
                                    
        Case Is = "33": Rows("12:44").EntireRow.Hidden = False
                        Rows("45:61").EntireRow.Hidden = True
                        
        Case Is = "32": Rows("12:43").EntireRow.Hidden = False
                        Rows("44:61").EntireRow.Hidden = True
                        
        Case Is = "31": Rows("12:42").EntireRow.Hidden = False
                        Rows("43:61").EntireRow.Hidden = True
                        
        Case Is = "30": Rows("12:41").EntireRow.Hidden = False
                        Rows("42:61").EntireRow.Hidden = True
                        
        Case Is = "29": Rows("12:40").EntireRow.Hidden = False
                        Rows("41:61").EntireRow.Hidden = True
                       
        Case Is = "28": Rows("12:39").EntireRow.Hidden = False
                        Rows("40:61").EntireRow.Hidden = True
                        
        Case Is = "27": Rows("12:38").EntireRow.Hidden = False
                        Rows("39:61").EntireRow.Hidden = True
                        
        Case Is = "26": Rows("12:37").EntireRow.Hidden = False
                        Rows("38:61").EntireRow.Hidden = True
        
        Case Is = "25": Rows("12:36").EntireRow.Hidden = False
                        Rows("37:61").EntireRow.Hidden = True
                        
        Case Is = "24": Rows("12:35").EntireRow.Hidden = False
                        Rows("36:61").EntireRow.Hidden = True
                                    
        Case Is = "23": Rows("12:34").EntireRow.Hidden = False
                        Rows("35:61").EntireRow.Hidden = True
                        
        Case Is = "22": Rows("12:33").EntireRow.Hidden = False
                        Rows("34:61").EntireRow.Hidden = True
                        
        Case Is = "21": Rows("12:32").EntireRow.Hidden = False
                        Rows("33:61").EntireRow.Hidden = True
                        
        Case Is = "20": Rows("12:31").EntireRow.Hidden = False
                        Rows("32:61").EntireRow.Hidden = True
                        
        Case Is = "19": Rows("12:30").EntireRow.Hidden = False
                        Rows("31:61").EntireRow.Hidden = True
                       
        Case Is = "18": Rows("12:29").EntireRow.Hidden = False
                        Rows("30:61").EntireRow.Hidden = True
                        
        Case Is = "17": Rows("12:28").EntireRow.Hidden = False
                        Rows("29:61").EntireRow.Hidden = True
                        
        Case Is = "16": Rows("12:27").EntireRow.Hidden = False
                        Rows("28:61").EntireRow.Hidden = True
        
        Case Is = "15": Rows("12:26").EntireRow.Hidden = False
                        Rows("27:61").EntireRow.Hidden = True
                        
        Case Is = "14": Rows("12:25").EntireRow.Hidden = False
                        Rows("26:61").EntireRow.Hidden = True
                                    
        Case Is = "13": Rows("12:24").EntireRow.Hidden = False
                        Rows("25:61").EntireRow.Hidden = True
                        
        Case Is = "12": Rows("12:23").EntireRow.Hidden = False
                        Rows("24:61").EntireRow.Hidden = True
                        
        Case Is = "11": Rows("12:22").EntireRow.Hidden = False
                        Rows("23:61").EntireRow.Hidden = True
                        
        Case Is = "10": Rows("12:21").EntireRow.Hidden = False
                        Rows("22:61").EntireRow.Hidden = True
                        
        Case Is = "9": Rows("12:20").EntireRow.Hidden = False
                       Rows("21:61").EntireRow.Hidden = True
                       
        Case Is = "8": Rows("12:19").EntireRow.Hidden = False
                       Rows("20:61").EntireRow.Hidden = True
                        
        Case Is = "7": Rows("12:18").EntireRow.Hidden = False
                       Rows("19:61").EntireRow.Hidden = True
                        
        Case Is = "6": Rows("12:17").EntireRow.Hidden = False
                       Rows("18:61").EntireRow.Hidden = True
        
        Case Is = "5": Rows("12:16").EntireRow.Hidden = False
                       Rows("17:61").EntireRow.Hidden = True
                        
        Case Is = "4": Rows("12:15").EntireRow.Hidden = False
                       Rows("16:61").EntireRow.Hidden = True
                                    
        Case Is = "3": Rows("12:14").EntireRow.Hidden = False
                       Rows("15:61").EntireRow.Hidden = True
                        
        Case Is = "2": Rows("12:13").EntireRow.Hidden = False
                       Rows("14:61").EntireRow.Hidden = True
                        
        Case Is = "1": Rows("12").EntireRow.Hidden = False
                       Rows("13:61").EntireRow.Hidden = True
                       
    End Select
        
End If

ActiveSheet.Protect Password:="1234"

End Sub

on Masterlist sheet, cell I2 is where I place the value to which i decide on how many students I want to be listed on my table.

this corresponds to rows 8 to 57 on Attendance sheet

and rows 21 to 70 on Raw Scores and Final Ratings sheet.
 
Sort by date Sort by votes
As I mentioned in my previous post, you can get most of the code that you need for the protection stuff using the Macro Recorder.
Simply turn on the Macro Recorder, record yourself removing the protection, then record yourself re-protecting it. Then stop the Macro Recorder.

If you then view the code that you recorded, you will see the VBA code that you need to unprotect the sheet. You can copy that section to your current code, near the top, so it unprotects the sheet before trying to hide/unhide rows.

Then, also copy and paste the section which re-protects the sheet at the bottom of your current code. Then you will have amended your code to do everything you need to do without have to mess with anything manually.

Note that if you have multiple sheets that you need to do this to, to repeat that code for the other sheets too.
 
Upvote 0

Excel Facts

Get help while writing formula
Click the italics "fx" icon to the left of the formula bar to open the Functions Arguments dialog. Help is displayed for each argument.
Thanks a lot for the responses u have made. I just finished coding my sheet. Tried protecting every sheet and also doing the protection from other sheets and it all worked.
1618360403001.png
 
Upvote 0
now my problem is that the sheet flickers when i enter data.. but when macro is running, its not..

my Masterlist sheet have "ClearContents" macro, which actually runs fine. takes lesser time to run the micro when I did ScreenUpdate code.
and also it has a Hide Row macro, which is the main topic of this thread.. I also placed a ScreenUpdate code, which kinda runs just fine..

but when Im doing normal data entry. I experienced some screen flickering.
 
Upvote 0
VBA Code: 
Private Sub cmdMasterClear_Click()

ActiveSheet.Unprotect Password:="w?WJXv9?f57fg6jK"

    Call TurnOffStuff
    
    Dim msgvalue As VbMsgBoxResult
    
        msgvalue = MsgBox("Are you sure you want to CLEAR ALL DATA?                              This may take a few moments to complete.                                  (You cannot undo this action.)", vbYesNo + vbQuestion + vbDefaultButton2, "Clear All Data")
    
                If msgvalue = vbYes Then
                    
                    Worksheets("Masterlist").Range("C12:F61").ClearContents '------------------------------->>> MASTERLIST
                    Worksheets("Masterlist").Range("H12:J61").ClearContents
                    Worksheets("Masterlist").Range("I3:I8").ClearContents
                    Worksheets("Masterlist").Range("B3:F4").ClearContents
                    Worksheets("Masterlist").Range("B6:F7").ClearContents
                    
                    Worksheets("Transmutation Table").Range("Y7:Z7").ClearContents '------------------------------->>> TRANSMUTATION TABLE
                    
                    Worksheets("Attendance").Range("f8:q57").ClearContents '------------------------------->>> ATTENDANCE
                    Worksheets("Attendance").Range("u8:u57").ClearContents
                    Worksheets("Attendance").Range("v8:ag57").ClearContents
                    Worksheets("Attendance").Range("ak8:ak57").ClearContents
                    Worksheets("Attendance").Range("al8:aw57").ClearContents
                    Worksheets("Attendance").Range("ba8:ba57").ClearContents
                    
                    Worksheets("Attendance").Range("f4:q5").ClearContents
                    Worksheets("Attendance").Range("v4:ag5").ClearContents
                    Worksheets("Attendance").Range("al4:aw5").ClearContents
                    
                     'PRELIM
                    Worksheets("Raw Scores").Range("I16:R17").ClearContents '------------------------------->>> RAW SCORES
                    Worksheets("Raw Scores").Range("I21:I70").ClearContents
                    Worksheets("Raw Scores").Range("K21:K70").ClearContents
                    Worksheets("Raw Scores").Range("M21:M70").ClearContents
                    Worksheets("Raw Scores").Range("O21:O70").ClearContents
                    Worksheets("Raw Scores").Range("Q21:Q70").ClearContents
                    
                    Worksheets("Raw Scores").Range("T16:AC17").ClearContents
                    Worksheets("Raw Scores").Range("T21:T70").ClearContents
                    Worksheets("Raw Scores").Range("V21:V70").ClearContents
                    Worksheets("Raw Scores").Range("X21:X70").ClearContents
                    Worksheets("Raw Scores").Range("Z21:Z70").ClearContents
                    Worksheets("Raw Scores").Range("AB21:AB70").ClearContents
                
                    Worksheets("Raw Scores").Range("AE16:AN17").ClearContents
                    Worksheets("Raw Scores").Range("AE21:AE70").ClearContents
                    Worksheets("Raw Scores").Range("AG21:AG70").ClearContents
                    Worksheets("Raw Scores").Range("AI21:AI70").ClearContents
                    Worksheets("Raw Scores").Range("AK21:AK70").ClearContents
                    Worksheets("Raw Scores").Range("AM21:AM70").ClearContents
                    
                    Worksheets("Raw Scores").Range("AP16:AQ17").ClearContents
                    Worksheets("Raw Scores").Range("AP21:AP70").ClearContents
                    
                    'MIDTERM
                    Worksheets("Raw Scores").Range("AR16:BA17").ClearContents
                    Worksheets("Raw Scores").Range("AR21:AR70").ClearContents
                    Worksheets("Raw Scores").Range("AT21:AT70").ClearContents
                    Worksheets("Raw Scores").Range("AV21:AV70").ClearContents
                    Worksheets("Raw Scores").Range("AX21:AX70").ClearContents
                    Worksheets("Raw Scores").Range("AZ21:AZ70").ClearContents
                    
                    Worksheets("Raw Scores").Range("BC16:BL17").ClearContents
                    Worksheets("Raw Scores").Range("BC21:BC70").ClearContents
                    Worksheets("Raw Scores").Range("BE21:BE70").ClearContents
                    Worksheets("Raw Scores").Range("BG21:BG70").ClearContents
                    Worksheets("Raw Scores").Range("BI21:BI70").ClearContents
                    Worksheets("Raw Scores").Range("BK21:BK70").ClearContents
                
                    Worksheets("Raw Scores").Range("BN16:BW17").ClearContents
                    Worksheets("Raw Scores").Range("BN21:BN70").ClearContents
                    Worksheets("Raw Scores").Range("BP21:BP70").ClearContents
                    Worksheets("Raw Scores").Range("BR21:BR70").ClearContents
                    Worksheets("Raw Scores").Range("BT21:BT70").ClearContents
                    Worksheets("Raw Scores").Range("BV21:BV70").ClearContents
                
                    Worksheets("Raw Scores").Range("BY16:BZ17").ClearContents
                    Worksheets("Raw Scores").Range("BY21:BY70").ClearContents
                    
                    'FINALS
                    Worksheets("Raw Scores").Range("CA16:CJ17").ClearContents
                    Worksheets("Raw Scores").Range("CA21:CA70").ClearContents
                    Worksheets("Raw Scores").Range("CC21:CC70").ClearContents
                    Worksheets("Raw Scores").Range("CE21:CE70").ClearContents
                    Worksheets("Raw Scores").Range("CG21:CG70").ClearContents
                    Worksheets("Raw Scores").Range("CI21:CI70").ClearContents
                    
                    Worksheets("Raw Scores").Range("CL16:CU17").ClearContents
                    Worksheets("Raw Scores").Range("CL21:CL70").ClearContents
                    Worksheets("Raw Scores").Range("CN21:CN70").ClearContents
                    Worksheets("Raw Scores").Range("CP21:CP70").ClearContents
                    Worksheets("Raw Scores").Range("CR21:CR70").ClearContents
                    Worksheets("Raw Scores").Range("CT21:CT70").ClearContents
                
                    Worksheets("Raw Scores").Range("CW16:DF17").ClearContents
                    Worksheets("Raw Scores").Range("CW21:CW70").ClearContents
                    Worksheets("Raw Scores").Range("CY21:CY70").ClearContents
                    Worksheets("Raw Scores").Range("DA21:DA70").ClearContents
                    Worksheets("Raw Scores").Range("DC21:DC70").ClearContents
                    Worksheets("Raw Scores").Range("DE21:DE70").ClearContents
            
                    Worksheets("Raw Scores").Range("DH16:DI17").ClearContents
                    Worksheets("Raw Scores").Range("DH21:DH70").ClearContents
                    
                    Worksheets("Final Ratings").Range("J21:J70").ClearContents '------------------------------->>> FINAL RATINGS
                    Worksheets("Final Ratings").Range("N21:N70").ClearContents
                    Worksheets("Final Ratings").Range("R21:R70").ClearContents
                    Worksheets("Final Ratings").Range("V21:V70").ClearContents
                    Worksheets("Final Ratings").Range("Z21:Z70").ClearContents
                    Worksheets("Final Ratings").Range("AD21:AD70").ClearContents
                    
                    Worksheets("Student Information").Range("B4:C4").ClearContents '------------------------------->>> STUDENT INFORMATION
                    
                    msgvalue = MsgBox("All Data Entry Cleared.", vbOKOnly, "Clear All Data")
                    
                End If
                
                If msgvalue = vbNo Then
                
                    msgvalue = MsgBox("Cancelled.", vbOkCancelled, "Clear All Data")
                    
        End If
        
    Call TurnOnStuff
    
    ActiveSheet.Protect Password:="w?WJXv9?f57fg6jK"
        
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="w?WJXv9?f57fg6jK"
Sheets("Attendance").Unprotect Password:="w?WJXv9?f57fg6jK"
Sheets("Summary of Report of Ratings").Unprotect Password:="w?WJXv9?f57fg6jK"
Sheets("Raw Scores").Unprotect Password:="w?WJXv9?f57fg6jK"
Sheets("Final Ratings").Unprotect Password:="w?WJXv9?f57fg6jK"

Call TurnOffStuff

If Not Application.Intersect(Range("I2"), Range(Target.Address)) Is Nothing Then
    
    Select Case Target.Value
        
        Case Is = "50": Sheets("Masterlist").Rows("12:61").EntireRow.Hidden = False
        
                            Sheets("Attendance").Rows("8:57").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("8:57").EntireRow.Hidden = False
                                
                                Sheets("Raw Scores").Rows("21:70").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("21:70").EntireRow.Hidden = False
                            
        Case Is = "49": Sheets("Masterlist").Rows("12:60").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:56").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:56").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("57").EntireRow.Hidden = True
                                        
                                Sheets("Raw Scores").Rows("21:69").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:69").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("70").EntireRow.Hidden = True
                            
        Case Is = "48": Sheets("Masterlist").Rows("12:59").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("60:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:55").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("56:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:55").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("56:57").EntireRow.Hidden = True
                                
                                        
                                Sheets("Raw Scores").Rows("21:68").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("69:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:68").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("69:70").EntireRow.Hidden = True
                                                                                                                                
        Case Is = "47": Sheets("Masterlist").Rows("12:58").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("59:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:54").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("55:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:54").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("55:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:67").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("68:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:67").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("68:70").EntireRow.Hidden = True
                                                               
        Case Is = "46": Sheets("Masterlist").Rows("12:57").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("58:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:53").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("54:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:53").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("54:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:66").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("67:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:66").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("67:70").EntireRow.Hidden = True
                                
        Case Is = "45": Sheets("Masterlist").Rows("12:56").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("57:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:52").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("53:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:52").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("53:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:65").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("66:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:65").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("66:70").EntireRow.Hidden = True
        
        Case Is = "44": Sheets("Masterlist").Rows("12:55").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("56:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:51").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("52:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:51").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("52:57").EntireRow.Hidden = True
                                    
                                Sheets("Raw Scores").Rows("21:64").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("65:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:64").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("65:70").EntireRow.Hidden = True
                                                            
        Case Is = "43": Sheets("Masterlist").Rows("12:54").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("55:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:50").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("51:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:50").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("51:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:63").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("64:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:63").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("64:70").EntireRow.Hidden = True
                            
        Case Is = "42": Sheets("Masterlist").Rows("12:53").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("54:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:49").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("50:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:49").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("50:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:62").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("63:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:62").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("63:70").EntireRow.Hidden = True
                                
        Case Is = "41": Sheets("Masterlist").Rows("12:52").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("53:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:48").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("49:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:48").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("49:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:61").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("62:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:61").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("62:70").EntireRow.Hidden = True
                                
        Case Is = "40": Sheets("Masterlist").Rows("12:51").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("52:61").EntireRow.Hidden = True
                                      
                            Sheets("Attendance").Rows("8:47").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("48:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:47").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("48:57").EntireRow.Hidden = True
                                  
                                Sheets("Raw Scores").Rows("21:60").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("61:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:60").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("61:70").EntireRow.Hidden = True
                                
        Case Is = "39": Sheets("Masterlist").Rows("12:50").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("51:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:46").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("47:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:46").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("47:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:59").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("60:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:59").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("60:70").EntireRow.Hidden = True
                                
        Case Is = "38": Sheets("Masterlist").Rows("12:49").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("50:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:45").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("46:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:45").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("46:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:58").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("59:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:58").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("59:70").EntireRow.Hidden = True
                                
        Case Is = "37": Sheets("Masterlist").Rows("12:48").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("49:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:44").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("45:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:44").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("45:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:57").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("58:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:57").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("58:70").EntireRow.Hidden = True
                                
        Case Is = "36": Sheets("Masterlist").Rows("12:47").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("48:61").EntireRow.Hidden = True
        
                            Sheets("Attendance").Rows("8:43").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("44:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:43").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("44:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:56").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("57:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:56").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("57:70").EntireRow.Hidden = True
                                
        Case Is = "35": Sheets("Masterlist").Rows("12:46").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("47:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:42").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("43:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:42").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("43:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:55").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("56:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:55").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("56:70").EntireRow.Hidden = True
                                
        Case Is = "34": Sheets("Masterlist").Rows("12:45").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("46:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:41").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("42:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:41").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("42:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:54").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("55:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:54").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("55:70").EntireRow.Hidden = True
                                
        Case Is = "33": Sheets("Masterlist").Rows("12:44").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("45:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:40").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("41:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:40").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("41:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:53").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("54:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:53").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("54:70").EntireRow.Hidden = True
                                
        Case Is = "32": Sheets("Masterlist").Rows("12:43").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("44:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:39").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("40:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:39").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("40:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:52").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("53:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:52").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("53:70").EntireRow.Hidden = True
                                
        Case Is = "31": Sheets("Masterlist").Rows("12:42").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("43:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:38").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("39:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:38").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("39:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:51").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("52:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:51").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("52:70").EntireRow.Hidden = True
                                
        Case Is = "30": Sheets("Masterlist").Rows("12:41").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("42:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:37").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("38:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:37").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("38:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:50").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("51:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:50").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("51:70").EntireRow.Hidden = True
                                
        Case Is = "29": Sheets("Masterlist").Rows("12:40").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("41:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:36").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("37:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:36").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("37:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:49").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("50:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:49").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("50:70").EntireRow.Hidden = True
                                
        Case Is = "28": Sheets("Masterlist").Rows("12:39").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("40:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:35").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("36:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:35").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("36:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:48").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("49:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:48").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("49:70").EntireRow.Hidden = True
                                
        Case Is = "27": Sheets("Masterlist").Rows("12:38").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("39:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:34").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("35:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:34").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("35:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:47").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("48:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:47").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("48:70").EntireRow.Hidden = True
                                
        Case Is = "26": Sheets("Masterlist").Rows("12:37").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("38:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:33").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("34:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:33").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("34:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:46").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("47:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:46").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("47:70").EntireRow.Hidden = True
                                
        Case Is = "25": Sheets("Masterlist").Rows("12:36").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("37:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:32").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("33:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:32").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("33:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:45").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("46:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:45").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("46:70").EntireRow.Hidden = True
                                
        Case Is = "24": Sheets("Masterlist").Rows("12:35").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("36:61").EntireRow.Hidden = True
                             
                            Sheets("Attendance").Rows("8:31").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("32:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:31").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("32:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:44").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("45:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:44").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("45:70").EntireRow.Hidden = True
                                 
        Case Is = "23": Sheets("Masterlist").Rows("12:34").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("35:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:30").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("31:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:30").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("31:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:43").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("44:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:43").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("44:70").EntireRow.Hidden = True
                                
        Case Is = "22": Sheets("Masterlist").Rows("12:33").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("34:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:29").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("30:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:29").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("30:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:42").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("43:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:42").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("43:70").EntireRow.Hidden = True
                                
        Case Is = "21": Sheets("Masterlist").Rows("12:32").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("33:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:28").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("29:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:28").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("29:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:41").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("42:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:41").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("42:70").EntireRow.Hidden = True
                                
        Case Is = "20": Sheets("Masterlist").Rows("12:31").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("32:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:27").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("28:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:27").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("28:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:40").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("41:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:40").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("41:70").EntireRow.Hidden = True
                                
        Case Is = "19": Sheets("Masterlist").Rows("12:30").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("31:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:26").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("27:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:26").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("27:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:39").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("40:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:39").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("40:70").EntireRow.Hidden = True
                                
        Case Is = "18": Sheets("Masterlist").Rows("12:29").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("30:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:25").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("26:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:25").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("26:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:38").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("39:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:38").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("39:70").EntireRow.Hidden = True
                                
        Case Is = "17": Sheets("Masterlist").Rows("12:28").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("29:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:24").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("25:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:24").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("25:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:37").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("38:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:37").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("38:70").EntireRow.Hidden = True
                                
        Case Is = "16": Sheets("Masterlist").Rows("12:27").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("28:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:23").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("24:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:23").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("24:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:36").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("37:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:36").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("37:70").EntireRow.Hidden = True
                                
        Case Is = "15": Sheets("Masterlist").Rows("12:26").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("27:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:22").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("23:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:22").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("23:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:35").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("36:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:35").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("36:70").EntireRow.Hidden = True
                                
        Case Is = "14": Sheets("Masterlist").Rows("12:25").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("26:61").EntireRow.Hidden = True
                                    
                            Sheets("Attendance").Rows("8:21").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("22:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:21").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("22:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:34").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("35:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:34").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("35:70").EntireRow.Hidden = True
                                
        Case Is = "13": Sheets("Masterlist").Rows("12:24").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("25:61").EntireRow.Hidden = True
                        
                            Sheets("Attendance").Rows("8:20").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("21:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:20").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("21:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:33").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("34:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:33").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("34:70").EntireRow.Hidden = True
                                
        Case Is = "12": Sheets("Masterlist").Rows("12:23").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("24:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:19").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("20:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:19").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("20:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:32").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("33:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:32").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("33:70").EntireRow.Hidden = True
                                
        Case Is = "11": Sheets("Masterlist").Rows("12:22").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("23:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:18").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("19:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:18").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("19:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:31").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("32:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:31").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("32:70").EntireRow.Hidden = True
                                
        Case Is = "10": Sheets("Masterlist").Rows("12:21").EntireRow.Hidden = False
                        Sheets("Masterlist").Rows("22:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:17").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("18:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:17").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("18:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:30").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("31:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:30").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("31:70").EntireRow.Hidden = True
                                
        Case Is = "9": Sheets("Masterlist").Rows("12:20").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("21:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:16").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("17:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:16").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("17:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:29").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("30:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:29").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("30:70").EntireRow.Hidden = True
                                
        Case Is = "8": Sheets("Masterlist").Rows("12:19").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("20:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:15").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("16:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:15").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("16:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:28").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("29:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:28").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("29:70").EntireRow.Hidden = True
                                
        Case Is = "7": Sheets("Masterlist").Rows("12:18").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("19:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:14").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("15:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:14").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("15:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:27").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("28:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:27").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("28:70").EntireRow.Hidden = True
                                
        Case Is = "6": Sheets("Masterlist").Rows("12:17").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("18:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:13").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("14:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:13").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("14:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:26").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("27:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:26").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("27:70").EntireRow.Hidden = True
                                
        Case Is = "5": Sheets("Masterlist").Rows("12:16").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("17:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:12").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("13:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:12").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("13:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:25").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("26:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:25").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("26:70").EntireRow.Hidden = True
                                
        Case Is = "4": Sheets("Masterlist").Rows("12:15").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("16:61").EntireRow.Hidden = True
                                   
                            Sheets("Attendance").Rows("8:11").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("12:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:11").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("12:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:24").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("25:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:24").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("25:70").EntireRow.Hidden = True
                                
        Case Is = "3": Sheets("Masterlist").Rows("12:14").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("15:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:10").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("11:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:10").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("11:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:23").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("24:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:23").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("24:70").EntireRow.Hidden = True
                                
        Case Is = "2": Sheets("Masterlist").Rows("12:13").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("14:61").EntireRow.Hidden = True
                            
                            Sheets("Attendance").Rows("8:9").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("10:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8:9").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("10:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21:22").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("23:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21:22").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("23:70").EntireRow.Hidden = True
                                
        Case Is = "1": Sheets("Masterlist").Rows("12").EntireRow.Hidden = False
                       Sheets("Masterlist").Rows("13:61").EntireRow.Hidden = True
                       
                            Sheets("Attendance").Rows("8").EntireRow.Hidden = False
                            Sheets("Attendance").Rows("9:57").EntireRow.Hidden = True
                            Sheets("Summary of Report of Ratings").Rows("8").EntireRow.Hidden = False
                            Sheets("Summary of Report of Ratings").Rows("9:57").EntireRow.Hidden = True
                                
                                Sheets("Raw Scores").Rows("21").EntireRow.Hidden = False
                                Sheets("Raw Scores").Rows("22:70").EntireRow.Hidden = True
                                Sheets("Final Ratings").Rows("21").EntireRow.Hidden = False
                                Sheets("Final Ratings").Rows("22:70").EntireRow.Hidden = True
                                
    End Select
        
End If

Call TurnOnStuff

Sheets("Attendance").Protect Password:="w?WJXv9?f57fg6jK"
Sheets("Summary of Report of Ratings").Protect Password:="w?WJXv9?f57fg6jK"
Sheets("Raw Scores").Protect Password:="w?WJXv9?f57fg6jK"
Sheets("Final Ratings").Protect Password:="w?WJXv9?f57fg6jK"
ActiveSheet.Protect Password:="w?WJXv9?f57fg6jK"

End Sub


Sub TurnOffStuff()

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.EnableEvents = False
       
End Sub

Sub TurnOnStuff()

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
End Sub
 
Upvote 0
the rest of the sheets connected to this micro on Masterlist sheet works just fine. no glitches or flickering effect.
 
Upvote 0
You must log in or register to reply here.

Similar threads

imback2nite
  • Solved
VBA help.
2
Replies
10
Views
799
Peter_SSs
Peter_SSs
B
  • Solved
Another VBA question to hide/unhide rows based on cell value in another sheet
2
Replies
12
Views
1K
kevin9999
K
A
  • Solved
how to protect sheets vba code
2
Replies
19
Views
1K
Scuba94
S
M
  • Question Question
Hide Rows based on cell with drop down values
Replies
1
Views
1K
kevin9999
K
lonlyboy
  • Question Question
Hides Rows based on cell value on multiple worksheets
Replies
3
Views
385
Peter_SSs
Peter_SSs

Forum statistics

Threads
1,223,903
Messages
6,175,289
Members
452,631
Latest member
a_potato

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top