Yesterday I posted VBA code for which I got Answer. Thank You very much. Now I reproduce the same. But after protecting the sheet with password I am getting run time error as : Unable to set the Hidden property of range class. Please help me. What is the code and where to put the code of protect sheet
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim TargetWidth As Single, PossNewRowHeight As Single
Dim a As String
If Target.MergeCells Then
'assign a value to my test variable
a = Cells(Target.Row, Target.Column).Value
'if target cell is not blank then....
If a <> "" Then
With Target.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
TargetWidth = Target.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + _
MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = TargetWidth
.MergeCells = True
.RowHeight = PossNewRowHeight
End If
End With
End If
'if target cell is blank, reset the row height back to normal...
If a = "" Then
Target.RowHeight = 16
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ExecuteBlock1
ExecuteBlock2
ExecuteBlock3
ExecuteBlock4
ExecuteBlock5
End Sub
Sub ExecuteBlock1()
Select Case Range("AK18").Value
Case "Premises 1"
Rows("19:26").Hidden = False
Rows("27:35").Hidden = True
Case "Premises 2"
Rows("19:35").Hidden = False
End Select
Select Case Range("AQ44").Value
Case "2", 2
Range("60:61,294:295,476:505,799:800").EntireRow.Hidden = False
Range("62:79,296:313,506:794,801:818").EntireRow.Hidden = True
Case "3", 3
Range("60:62,294:296,476:521,799:801").EntireRow.Hidden = False
Range("63:79,297:313,522:794,802:818").EntireRow.Hidden = True
Case "4", 4
Range("60:63,294:297,476:537,799:802").EntireRow.Hidden = False
Range("64:79,298:313,538:794,803:818").EntireRow.Hidden = True
Case "5", 5
Range("60:64,294:298,476:553,799:803").EntireRow.Hidden = False
Range("65:79,299:313,554:794,804:818").EntireRow.Hidden = True
Case "6", 6
Range("60:65,294:299,476:569,799:804").EntireRow.Hidden = False
Range("66:79,300:313,570:794,805:818").EntireRow.Hidden = True
Case "7", 7
Range("60:66,294:300, 476:585,799:805").EntireRow.Hidden = False
Range("67:79, 301:313, 586:794,806:818").EntireRow.Hidden = True
Case "8", 8
Range("60:67,294:301,476:601,799:806").EntireRow.Hidden = False
Range("68:79,302:313,602:794,807:818").EntireRow.Hidden = True
Case "9", 9
Range("60:68,294:302,476:617,799:807").EntireRow.Hidden = False
Range("69:79,303:313,618:794,808:818").EntireRow.Hidden = True
Case "10", 10
Range("60:69,294:303,476:633,799:808").EntireRow.Hidden = False
Range("70:79,304:313,634:794,809:818").EntireRow.Hidden = True
Case "11", 11
Range("60:70,294:304,476:649,799:809").EntireRow.Hidden = False
Range("71:79,305:313,650:794,810:818").EntireRow.Hidden = True
Case "12", 12
Range("60:71,294:305,476:655,799:810").EntireRow.Hidden = False
Range("72:79,306:313,656:794,811:818").EntireRow.Hidden = True
Case "13", 13
Range("60:72,294:306,476:681,799:811").EntireRow.Hidden = False
Range("73:79,307:313,682:794,812:818").EntireRow.Hidden = True
Case "14", 14
Range("60:73,294:307,476:697,799:812").EntireRow.Hidden = False
Range("74:79,308:313,698:794,813:818").EntireRow.Hidden = True
Case "15", 15
Range("60:74,294:308,476:713,799:813").EntireRow.Hidden = False
Range("75:79,309:313,714:794,814:818").EntireRow.Hidden = True
Case "16", 16
Range("60:75,294:309,476:729,799:814").EntireRow.Hidden = False
Range("76:79,310:313,730:794,815:818").EntireRow.Hidden = True
Case "17", 17
Range("60:76,294:310,476:745,799:815").EntireRow.Hidden = False
Range("77:79,311:313,746:794,816:818").EntireRow.Hidden = True
Case "18", 18
Range("60:77,294:311,476:761,799:816").EntireRow.Hidden = False
Range("78:79,312:313,762:794,817:818").EntireRow.Hidden = True
Case "19", 19
Range("60:78,294:312,476:778,799:817").EntireRow.Hidden = False
Range("79:79,313:313,779:794,818:818").EntireRow.Hidden = True
Case "20", 20
Range("60:79,294:313,476:794,799:818").EntireRow.Hidden = False
End Select
End Sub
Sub ExecuteBlock2()
If Range("AK86").Value = "Yes" Then
Worksheets("F3CBD").Visible = True
Else
Worksheets("F3CBD").Visible = False
End If
If Range("AK93").Value = "Yes" Then
Worksheets("F3EB").Visible = True
Else
Worksheets("F3EB").Visible = False
End If
If Range("AK100").Value = "Yes" Then
Worksheets("F29C").Visible = True
Else
Worksheets("F29C").Visible = False
End If
If Range("P44").Value = "Yes" Then
Rows("143:245").Hidden = False
Else
Rows("143:245").Hidden = True
End If
If Range("P44").Value = "Yes" Then
Rows("323:404").Hidden = False
Else
Rows("323:404").Hidden = True
End If
If Range("P44").Value = "No" Then
Rows("247:279").Hidden = False
Else
Rows("247:279").Hidden = True
End If
If Range("P44").Value = "No" Then
Rows("407:459").Hidden = False
Else
Rows("407:459").Hidden = True
End If
If Range("AA81").Value = "Yes" Then
Rows("82:85").Hidden = False
Else
Rows("82:85").Hidden = True
End If
If Range("AA88").Value = "Yes" Then
Rows("89:92").Hidden = False
Else
Rows("89:92").Hidden = True
End If
If Range("AA95").Value = "Yes" Then
Rows("96:99").Hidden = False
Else
Rows("96:99").Hidden = True
End If
If Range("AA102").Value = "Yes" Then
Rows("103:104").Hidden = False
Else
Rows("103:104").Hidden = True
End If
If Range("U110").Value = "Yes" Then
Rows("1681:1859").Hidden = False
Else
Rows("1681:1859").Hidden = True
End If
If Range("U111").Value = "Yes" Then
Rows("2034:2321").Hidden = False
Else
Rows("2034:2321").Hidden = True
End If
If Range("AS115").Value = "Yes" Then
Rows("2096:2109").Hidden = False
Else
Rows("2096:2109").Hidden = True
End If
If Range("AS110").Value = "Yes" Then
Rows("2114:2301").Hidden = False
Else
Rows("2114:2301").Hidden = True
End If
If Range("AS111").Value = "Yes" Then
Rows("2648:2652").Hidden = False
Else
Rows("2648:2652").Hidden = True
End If
If Range("U112").Value = "Yes" Then
Rows("2323:2346").Hidden = False
Else
Rows("2323:2346").Hidden = True
End If
If Range("AS112").Value = "Yes" Then
Rows("2352:2366").Hidden = False
Else
Rows("2352:2366").Hidden = True
End If
If Range("U113").Value = "Yes" Then
Rows("2366:2390").Hidden = False
Else
Rows("2366:2390").Hidden = True
End If
If Range("U114").Value = "Yes" Then
Rows("2389:2404").Hidden = False
Else
Rows("2389:2404").Hidden = True
End If
If Range("AS114").Value = "Yes" Then
Rows("2543:2567").Hidden = False
Else
Rows("2543:2567").Hidden = True
End If
If Range("U115").Value = "Yes" Then
Rows("2403:2530").Hidden = False
Else
Rows("2403:2530").Hidden = True
End If
If Range("U116").Value = "Yes" Then
Rows("2657:2672").Hidden = False
Else
Rows("2657:2672").Hidden = True
End If
If Range("AS116").Value = "Yes" Then
Rows("2695:2708").Hidden = False
Else
Rows("2695:2708").Hidden = True
End If
If Range("AK55").Value = "Yes" Then
Rows("1592:1649").Hidden = False
Else
Rows("1592:1649").Hidden = True
End If
If Range("AK56").Value = "Yes" Then
Rows("1650:1667").Hidden = False
Else
Rows("1650:1667").Hidden = True
End If
If Range("U119").Value = "Yes" Then
Rows("1927:1934").Hidden = False
Else
Rows("1927:1934").Hidden = True
End If
If Range("U120").Value = "Yes" Then
Rows("1935:1940").Hidden = False
Else
Rows("1935:1940").Hidden = True
End If
If Range("U121").Value = "Yes" Then
Rows("1941:1946").Hidden = False
Else
Rows("1941:1946").Hidden = True
End If
If Range("U122").Value = "Yes" Then
Rows("1947:1952").Hidden = False
Else
Rows("1947:1952").Hidden = True
End If
If Range("U123").Value = "Yes" Then
Rows("1953:1958").Hidden = False
Else
Rows("1953:1958").Hidden = True
End If
If Range("U124").Value = "Yes" Then
Rows("1959:1963").Hidden = False
Else
Rows("1959:1963").Hidden = True
End If
If Range("U126").Value = "Yes" Then
Rows("1964:1997").Hidden = False
Else
Rows("1964:1997").Hidden = True
End If
If Range("AS119").Value = "Yes" Then
Rows("2001:2001").Hidden = False
Else
Rows("2001:2001").Hidden = True
End If
If Range("AS120").Value = "Yes" Then
Rows("2002:2009").Hidden = False
Else
Rows("2002:2009").Hidden = True
End If
If Range("AS121").Value = "Yes" Then
Rows("2010:2015").Hidden = False
Else
Rows("2010:2015").Hidden = True
End If
If Range("AS122").Value = "Yes" Then
Rows("2016:2019").Hidden = False
Else
Rows("2016:2019").Hidden = True
End If
If Range("AS123").Value = "Yes" Then
Rows("2020:2022").Hidden = False
Else
Rows("2020:2022").Hidden = True
End If
If Range("AS124").Value = "Yes" Then
Rows("2036:2046").Hidden = False
Else
Rows("2036:2046").Hidden = True
End If
If Range("AS125").Value = "Yes" Then
Rows("2050:2059").Hidden = False
Else
Rows("2050:2059").Hidden = True
End If
If Range("AS126").Value = "Yes" Then
Rows("2062:2095").Hidden = False
Else
Rows("2062:2095").Hidden = True
End If
If Range("AS127").Value = "Yes" Then
Rows("2578:2592").Hidden = False
Else
Rows("2578:2592").Hidden = True
End If
If Range("AU892").Value = "Yes" Then
Rows("908:924").Hidden = False
Else
Rows("908:924").Hidden = True
End If
If Range("AU832").Value = "2" Then
Rows("831:832").Hidden = False
Rows("833:861").Hidden = True
End If
If Range("AU832").Value = "3" Then
Rows("831:833").Hidden = False
Rows("834:861").Hidden = True
End If
If Range("AU832").Value = "4" Then
Rows("831:834").Hidden = False
Rows("835:861").Hidden = True
End If
If Range("AU832").Value = "5" Then
Rows("831:835").Hidden = False
Rows("836:861").Hidden = True
End If
If Range("AU832").Value = "6" Then
Rows("831:836").Hidden = False
Rows("837:861").Hidden = True
End If
If Range("AU832").Value = "7" Then
Rows("831:837").Hidden = False
Rows("838:861").Hidden = True
End If
If Range("AU832").Value = "8" Then
Rows("831:838").Hidden = False
Rows("839:861").Hidden = True
End If
If Range("AU832").Value = "9" Then
Rows("831:839").Hidden = False
Rows("840:861").Hidden = True
End If
If Range("AU832").Value = "10" Then
Rows("831:840").Hidden = False
Rows("841:861").Hidden = True
End If
If Range("AU832").Value = "11" Then
Rows("831:841").Hidden = False
Rows("842:861").Hidden = True
End If
If Range("AU832").Value = "12" Then
Rows("831:842").Hidden = False
Rows("843:861").Hidden = True
End If
If Range("AU832").Value = "13" Then
Rows("831:843").Hidden = False
Rows("844:861").Hidden = True
End If
If Range("AU832").Value = "14" Then
Rows("831:844").Hidden = False
Rows("845:861").Hidden = True
End If
If Range("AU832").Value = "15" Then
Rows("831:845").Hidden = False
Rows("846:861").Hidden = True
End If
If Range("AU832").Value = "16" Then
Rows("831:846").Hidden = False
Rows("847:861").Hidden = True
End If
If Range("AU832").Value = "17" Then
Rows("831:847").Hidden = False
Rows("848:861").Hidden = True
End If
If Range("AU832").Value = "18" Then
Rows("831:848").Hidden = False
Rows("849:861").Hidden = True
End If
If Range("AU832").Value = "19" Then
Rows("831:849").Hidden = False
Rows("850:861").Hidden = True
End If
If Range("AU832").Value = "20" Then
Rows("831:850").Hidden = False
Rows("851:861").Hidden = True
End If
If Range("AU832").Value = "21" Then
Rows("831:851").Hidden = False
Rows("852:861").Hidden = True
End If
If Range("AU832").Value = "22" Then
Rows("831:852").Hidden = False
Rows("853:861").Hidden = True
End If
If Range("AU832").Value = "23" Then
Rows("831:853").Hidden = False
Rows("854:861").Hidden = True
End If
If Range("AU832").Value = "24" Then
Rows("831:854").Hidden = False
Rows("855:861").Hidden = True
End If
If Range("AU832").Value = "25" Then
Rows("831:855").Hidden = False
Rows("856:861").Hidden = True
End If
If Range("AU832").Value = "26" Then
Rows("831:856").Hidden = False
Rows("857:861").Hidden = True
End If
If Range("AU832").Value = "27" Then
Rows("831:857").Hidden = False
Rows("858:861").Hidden = True
End If
If Range("AU832").Value = "28" Then
Rows("831:858").Hidden = False
Rows("859:861").Hidden = True
End If
If Range("AU832").Value = "29" Then
Rows("831:859").Hidden = False
Rows("860:861").Hidden = True
End If
If Range("AU832").Value = "30" Then
Rows("831:860").Hidden = False
Rows("861:861").Hidden = True
End If
If Range("AU832").Value = "31" Then
Rows("831:861").Hidden = False
End If
If Range("AU870").Value = "2" Then
Rows("869:870").Hidden = False
Rows("871:883").Hidden = True
End If
If Range("AU870").Value = "3" Then
Rows("869:871").Hidden = False
Rows("872: 883").Hidden = True
End If
If Range("AU870").Value = "4" Then
Rows("869:872").Hidden = False
Rows("873:883").Hidden = True
End If
If Range("AU870").Value = "5" Then
Rows("869:873").Hidden = False
Rows("874:883").Hidden = True
End If
If Range("AU870").Value = "6" Then
Rows("869:874").Hidden = False
Rows("875:883").Hidden = True
End If
If Range("AU870").Value = "7" Then
Rows("869:875").Hidden = False
Rows("876:883").Hidden = True
End If
If Range("AU870").Value = "8" Then
Rows("869:876").Hidden = False
Rows("877:883").Hidden = True
End If
If Range("AU870").Value = "9" Then
Rows("869:877").Hidden = False
Rows("878:883").Hidden = True
End If
If Range("AU870").Value = "10" Then
Rows("869:878").Hidden = False
Rows("879:883").Hidden = True
End If
If Range("AU870").Value = "11" Then
Rows("869:879").Hidden = False
Rows("880:883").Hidden = True
End If
If Range("AU870").Value = "12" Then
Rows("831:880").Hidden = False
Rows("881:883").Hidden = True
End If
If Range("AU870").Value = "13" Then
Rows("869:881").Hidden = False
Rows("882:883").Hidden = True
End If
If Range("AU870").Value = "14" Then
Rows("869:882").Hidden = False
Rows("883:883").Hidden = True
End If
If Range("AU870").Value = "15" Then
Rows("869:883").Hidden = False
End If
End Sub
Sub ExecuteBlock3()
If Range("AU944").Value = "2" Then
Rows("946:947").Hidden = False
Rows("948:976").Hidden = True
End If
If Range("AU944").Value = "3" Then
Rows("946:948").Hidden = False
Rows("949:976").Hidden = True
End If
If Range("AU944").Value = "4" Then
Rows("946:949").Hidden = False
Rows("950:976").Hidden = True
End If
If Range("AU944").Value = "5" Then
Rows("946:950").Hidden = False
Rows("951:976").Hidden = True
End If
If Range("AU944").Value = "6" Then
Rows("946:951").Hidden = False
Rows("952:976").Hidden = True
End If
If Range("AU944").Value = "7" Then
Rows("946:952").Hidden = False
Rows("953:976").Hidden = True
End If
If Range("AU944").Value = "8" Then
Rows("946:953").Hidden = False
Rows("954: 976").Hidden = True
End If
If Range("AU944").Value = "9" Then
Rows("946:954").Hidden = False
Rows("955:976").Hidden = True
End If
If Range("AU944").Value = "10" Then
Rows("946:955").Hidden = False
Rows("956:976").Hidden = True
End If
If Range("AU944").Value = "11" Then
Rows("946:956").Hidden = False
Rows("957:976").Hidden = True
End If
If Range("AU944").Value = "12" Then
Rows("946:957").Hidden = False
Rows("958:976").Hidden = True
End If
If Range("AU944").Value = "13" Then
Rows("946:958").Hidden = False
Rows("959:976").Hidden = True
End If
If Range("AU944").Value = "14" Then
Rows("946:959").Hidden = False
Rows("960:976").Hidden = True
End If
If Range("AU944").Value = "15" Then
Rows("946:960").Hidden = False
Rows("961: 976").Hidden = True
End If
If Range("AU944").Value = "16" Then
Rows("946:961").Hidden = False
Rows("962:976").Hidden = True
End If
If Range("AU944").Value = "17" Then
Rows("946:962").Hidden = False
Rows("963:976").Hidden = True
End If
If Range("AU944").Value = "18" Then
Rows("946:963").Hidden = False
Rows("964:976").Hidden = True
End If
If Range("AU944").Value = "19" Then
Rows("946:964").Hidden = False
Rows("965:976").Hidden = True
End If
If Range("AU944").Value = "20" Then
Rows("946:965").Hidden = False
Rows("966: 976").Hidden = True
End If
If Range("AU944").Value = "21" Then
Rows("946:966").Hidden = False
Rows("967:976").Hidden = True
End If
If Range("AU944").Value = "22" Then
Rows("946:967").Hidden = False
Rows("968:976").Hidden = True
End If
If Range("AU944").Value = "23" Then
Rows("946:968").Hidden = False
Rows("969:976").Hidden = True
End If
If Range("AU944").Value = "24" Then
Rows("946:969").Hidden = False
Rows("970:976").Hidden = True
End If
If Range("AU944").Value = "25" Then
Rows("946:970").Hidden = False
Rows("971:976").Hidden = True
End If
If Range("AU944").Value = "26" Then
Rows("946:971").Hidden = False
Rows("972: 976").Hidden = True
End If
If Range("AU944").Value = "27" Then
Rows("946:972").Hidden = False
Rows("973:976").Hidden = True
End If
If Range("AU944").Value = "28" Then
Rows("946:973").Hidden = False
Rows("974: 976").Hidden = True
End If
If Range("AU944").Value = "29" Then
Rows("946:974").Hidden = False
Rows("975:976").Hidden = True
End If
If Range("AU944").Value = "31" Then
Rows("946:976").Hidden = False
End If
If Range("AU981").Value = "2" Then
Rows("983:984").Hidden = False
Rows("985:997").Hidden = True
End If
If Range("AU981").Value = "3" Then
Rows("983:985").Hidden = False
Rows("986:997").Hidden = True
End If
If Range("AU981").Value = "4" Then
Rows("983:986").Hidden = False
Rows("987:997").Hidden = True
End If
If Range("AU981").Value = "5" Then
Rows("983:987").Hidden = False
Rows("988:997").Hidden = True
End If
If Range("AU981").Value = "6" Then
Rows("983:988").Hidden = False
Rows("989:997").Hidden = True
End If
If Range("AU981").Value = "7" Then
Rows("983:989").Hidden = False
Rows("990:997").Hidden = True
End If
If Range("AU981").Value = "8" Then
Rows("983:990").Hidden = False
Rows("991:997").Hidden = True
End If
If Range("AU981").Value = "9" Then
Rows("983:991").Hidden = False
Rows("992:997").Hidden = True
End If
If Range("AU981").Value = "10" Then
Rows("983:992").Hidden = False
Rows("993:997").Hidden = True
End If
If Range("AU981").Value = "11" Then
Rows("983:993").Hidden = False
Rows("994:997").Hidden = True
End If
If Range("AU981").Value = "12" Then
Rows("983:994").Hidden = False
Rows("995:997").Hidden = True
End If
If Range("AU981").Value = "13" Then
Rows("983:995").Hidden = False
Rows("996: 997").Hidden = True
End If
If Range("AU981").Value = "14" Then
Rows("983:996").Hidden = False
Rows("997:997").Hidden = True
End If
If Range("AU981").Value = "15" Then
Rows("983:997").Hidden = False
End If
If Range("AU1003").Value = "2" Then
Rows("1003:1004").Hidden = False
Rows("1005:1054").Hidden = True
End If
If Range("AU1003").Value = "3" Then
Rows("1003:1005").Hidden = False
Rows("1006:1054").Hidden = True
End If
If Range("AU1003").Value = "4" Then
Rows("1003:1006").Hidden = False
Rows("1007:1054").Hidden = True
End If
If Range("AU1003").Value = "5" Then
Rows("1003:1007").Hidden = False
Rows("1008:1054").Hidden = True
End If
If Range("AU1003").Value = "6" Then
Rows("1003:1008").Hidden = False
Rows("1009:1054").Hidden = True
End If
If Range("AU1003").Value = "7" Then
Rows("1003:1009").Hidden = False
Rows("1010:1054").Hidden = True
End If
If Range("AU1003").Value = "8" Then
Rows("1003:1010").Hidden = False
Rows("1011:1054").Hidden = True
End If
If Range("AU1003").Value = "9" Then
Rows("1003:1011").Hidden = False
Rows("1012:1054").Hidden = True
End If
If Range("AU1003").Value = "10" Then
Rows("1003:1012").Hidden = False
Rows("1013:1054").Hidden = True
End If
If Range("AU1003").Value = "11" Then
Rows("1003:1013").Hidden = False
Rows("1014: 1054").Hidden = True
End If
If Range("AU1003").Value = "12" Then
Rows("1003:1014").Hidden = False
Rows("1015:1054").Hidden = True
End If
If Range("AU1003").Value = "13" Then
Rows("1003:1015").Hidden = False
Rows("1016:1054").Hidden = True
End If
If Range("AU1003").Value = "14" Then
Rows("1003:1016").Hidden = False
Rows("1017:1054").Hidden = True
End If
If Range("AU1003").Value = "15" Then
Rows("1003:1017").Hidden = False
Rows("1018:1054").Hidden = True
End If
If Range("AU1003").Value = "16" Then
Rows("1003:1018").Hidden = False
Rows("1019:1054").Hidden = True
End If
If Range("AU1003").Value = "17" Then
Rows("1003:1019").Hidden = False
Rows("1020:1054").Hidden = True
End If
If Range("AU1003").Value = "18" Then
Rows("1003:1020").Hidden = False
Rows("1021: 1054").Hidden = True
End If
If Range("AU1003").Value = "19" Then
Rows("1003:1021").Hidden = False
Rows("1022:1054").Hidden = True
End If
If Range("AU1003").Value = "20" Then
Rows("1003:1022").Hidden = False
Rows("1023:1054").Hidden = True
End If
If Range("AU1003").Value = "21" Then
Rows("1003:1023").Hidden = False
Rows("1024:1054").Hidden = True
End If
If Range("AU1003").Value = "22" Then
Rows("1003:1024").Hidden = False
Rows("1025:1054").Hidden = True
End If
If Range("AU1003").Value = "23" Then
Rows("1003:1025").Hidden = False
Rows("1026: 1054").Hidden = True
End If
If Range("AU1003").Value = "24" Then
Rows("1003:1026").Hidden = False
Rows("1027:1054").Hidden = True
End If
If Range("AU1003").Value = "25" Then
Rows("1003:1027").Hidden = False
Rows("1028:1054").Hidden = True
End If
If Range("AU1003").Value = "26" Then
Rows("1003:1028").Hidden = False
Rows("1029:1054").Hidden = True
End If
If Range("AU1003").Value = "27" Then
Rows("1003:1029").Hidden = False
Rows("1030: 1054").Hidden = True
End If
If Range("AU1003").Value = "28" Then
Rows("1003:1030").Hidden = False
Rows("1031:1054").Hidden = True
End If
If Range("AU1003").Value = "29" Then
Rows("1003:1031").Hidden = False
Rows("1032:1054").Hidden = True
End If
If Range("AU1003").Value = "30" Then
Rows("1003:1032").Hidden = False
Rows("1033:1054").Hidden = True
End If
If Range("AU1003").Value = "31" Then
Rows("1003:1033").Hidden = False
Rows("1034: 1054").Hidden = True
End If
If Range("AU1003").Value = "32" Then
Rows("1003:1034").Hidden = False
Rows("1035:1054").Hidden = True
End If
If Range("AU1003").Value = "33" Then
Rows("1003:1036").Hidden = False
Rows("1037:1054").Hidden = True
End If
If Range("AU1003").Value = "34" Then
Rows("1003:1037").Hidden = False
Rows("1038:1054").Hidden = True
End If
If Range("AU1003").Value = "35" Then
Rows("1003:1038").Hidden = False
Rows("1039:1054").Hidden = True
End If
If Range("AU1003").Value = "36" Then
Rows("1003:1039").Hidden = False
Rows("1040:1054").Hidden = True
End If
If Range("AU1003").Value = "37" Then
Rows("1003:1040").Hidden = False
Rows("1041:1054").Hidden = True
End If
If Range("AU1003").Value = "38" Then
Rows("1003:1041").Hidden = False
Rows("1042:1054").Hidden = True
End If
If Range("AU1003").Value = "39" Then
Rows("1003:1042").Hidden = False
Rows("1043:1054").Hidden = True
End If
If Range("AU1003").Value = "40" Then
Rows("1003:1043").Hidden = False
Rows("1044:1054").Hidden = True
End If
If Range("AU1003").Value = "41" Then
Rows("1003:1044").Hidden = False
Rows("1045:1054").Hidden = True
End If
If Range("AU1003").Value = "42" Then
Rows("1003:1045").Hidden = False
Rows("1046:1054").Hidden = True
End If
If Range("AU1003").Value = "43" Then
Rows("1003:1046").Hidden = False
Rows("1047:1054").Hidden = True
End If
If Range("AU1003").Value = "44" Then
Rows("1003:1047").Hidden = False
Rows("1048:1054").Hidden = True
End If
If Range("AU1003").Value = "45" Then
Rows("1003:1048").Hidden = False
Rows("1049:1054").Hidden = True
End If
If Range("AU1003").Value = "46" Then
Rows("1003:1049").Hidden = False
Rows("1050:1054").Hidden = True
End If
If Range("AU1003").Value = "47" Then
Rows("1003:1050").Hidden = False
Rows("1051:1054").Hidden = True
End If
If Range("AU1003").Value = "48" Then
Rows("1003:1051").Hidden = False
Rows("1052:1054").Hidden = True
End If
If Range("AU1003").Value = "49" Then
Rows("1003:1052").Hidden = False
Rows("1053:1054").Hidden = True
End If
If Range("AU1003").Value = "50" Then
Rows("1003:1053").Hidden = False
Rows("1054:1054").Hidden = True
End If
If Range("AU1003").Value = "51" Then
Rows("1003:1054").Hidden = False
End If
If Range("AU1067").Value = "2" Then
Rows("1070:1071").Hidden = False
Rows("1072:1121").Hidden = True
End If
If Range("AU1067").Value = "3" Then
Rows("1070:1072").Hidden = False
Rows("1073:1121").Hidden = True
End If
If Range("AU1067").Value = "4" Then
Rows("1070:1073").Hidden = False
Rows("1074:1121").Hidden = True
End If
If Range("AU1067").Value = "5" Then
Rows("1070:1074").Hidden = False
Rows("1075:1121").Hidden = True
End If
If Range("AU1067").Value = "6" Then
Rows("1070:1075").Hidden = False
Rows("1076:1121").Hidden = True
End If
If Range("AU1067").Value = "7" Then
Rows("1070:1076").Hidden = False
Rows("1077:1121").Hidden = True
End If
If Range("AU1067").Value = "8" Then
Rows("1070:1077").Hidden = False
Rows("1078:1121").Hidden = True
End If
If Range("AU1067").Value = "9" Then
Rows("1070:1078").Hidden = False
Rows("1079:1121").Hidden = True
End If
If Range("AU1067").Value = "10" Then
Rows("1070:1079").Hidden = False
Rows("1080:1121").Hidden = True
End If
If Range("AU1067").Value = "11" Then
Rows("1070:1080").Hidden = False
Rows("1081:1121").Hidden = True
End If
If Range("AU1067").Value = "12" Then
Rows("1070:1081").Hidden = False
Rows("1082:1121").Hidden = True
End If
If Range("AU1067").Value = "13" Then
Rows("1070:1082").Hidden = False
Rows("1083:1121").Hidden = True
End If
If Range("AU1067").Value = "14" Then
Rows("1070:1083").Hidden = False
Rows("1084:1121").Hidden = True
End If
If Range("AU1067").Value = "15" Then
Rows("1070:1084").Hidden = False
Rows("1085:1121").Hidden = True
End If
If Range("AU1067").Value = "16" Then
Rows("1070:1085").Hidden = False
Rows("1086:1121").Hidden = True
End If
If Range("AU1067").Value = "17" Then
Rows("1070:1086").Hidden = False
Rows("1087:1121").Hidden = True
End If
If Range("AU1067").Value = "18" Then
Rows("1070:1087").Hidden = False
Rows("1088:1121").Hidden = True
End If
If Range("AU1067").Value = "19" Then
Rows("1070:1088").Hidden = False
Rows("1089:1121").Hidden = True
End If
If Range("AU1067").Value = "20" Then
Rows("1070:1089").Hidden = False
Rows("1090:1121").Hidden = True
End If
If Range("AU1067").Value = "21" Then
Rows("1070:1090").Hidden = False
Rows("1091:1121").Hidden = True
End If
If Range("AU1067").Value = "22" Then
Rows("1070:1091").Hidden = False
Rows("1092:1121").Hidden = True
End If
If Range("AU1067").Value = "23" Then
Rows("1070:1092").Hidden = False
Rows("1093:1121").Hidden = True
End If
If Range("AU1067").Value = "24" Then
Rows("1070:1093").Hidden = False
Rows("1094:1121").Hidden = True
End If
If Range("AU1067").Value = "25" Then
Rows("1070:1094").Hidden = False
Rows("1095:1121").Hidden = True
End If
If Range("AU1067").Value = "26" Then
Rows("1070:1095").Hidden = False
Rows("1096:1121").Hidden = True
End If
If Range("AU1067").Value = "27" Then
Rows("1070:1096").Hidden = False
Rows("1097:1121").Hidden = True
End If
If Range("AU1067").Value = "28" Then
Rows("1070:1097").Hidden = False
Rows("1098:1121").Hidden = True
End If
If Range("AU1067").Value = "29" Then
Rows("1070:1098").Hidden = False
Rows("1099:1121").Hidden = True
End If
If Range("AU1067").Value = "30" Then
Rows("1070:1099").Hidden = False
Rows("1100:1121").Hidden = True
End If
If Range("AU1067").Value = "31" Then
Rows("1070:1100").Hidden = False
Rows("1101:1121").Hidden = True
End If
If Range("AU1067").Value = "32" Then
Rows("1070:1101").Hidden = False
Rows("1102:1121").Hidden = True
End If
If Range("AU1067").Value = "33" Then
Rows("1070:1102").Hidden = False
Rows("1103:1121").Hidden = True
End If
If Range("AU1067").Value = "34" Then
Rows("1070:1103").Hidden = False
Rows("1104:1121").Hidden = True
End If
If Range("AU1067").Value = "35" Then
Rows("1070:1104").Hidden = False
Rows("1105:1121").Hidden = True
End If
If Range("AU1067").Value = "36" Then
Rows("1070:1105").Hidden = False
Rows("1106:1121").Hidden = True
End If
If Range("AU1067").Value = "37" Then
Rows("1070:1106").Hidden = False
Rows("1107:1121").Hidden = True
End If
If Range("AU1067").Value = "38" Then
Rows("1070:1107").Hidden = False
Rows("1108:1121").Hidden = True
End If
If Range("AU1067").Value = "39" Then
Rows("1070:1108").Hidden = False
Rows("1109:1121").Hidden = True
End If
If Range("AU1067").Value = "40" Then
Rows("1070:1109").Hidden = False
Rows("1110:1121").Hidden = True
End If
If Range("AU1067").Value = "41" Then
Rows("1070:1110").Hidden = False
Rows("1111:1121").Hidden = True
End If
If Range("AU1067").Value = "42" Then
Rows("1070:1111").Hidden = False
Rows("1112:1121").Hidden = True
End If
If Range("AU1067").Value = "43" Then
Rows("1070:1112").Hidden = False
Rows("1113:1121").Hidden = True
End If
If Range("AU1067").Value = "44" Then
Rows("1070:1113").Hidden = False
Rows("1114:1121").Hidden = True
End If
If Range("AU1067").Value = "45" Then
Rows("1070:1114").Hidden = False
Rows("1115:1121").Hidden = True
End If
If Range("AU1067").Value = "46" Then
Rows("1070:1115").Hidden = False
Rows("1116:1121").Hidden = True
End If
If Range("AU1067").Value = "47" Then
Rows("1070:1116").Hidden = False
Rows("1117:1121").Hidden = True
End If
If Range("AU1067").Value = "48" Then
Rows("1070:1117").Hidden = False
Rows("1118:1121").Hidden = True
End If
If Range("AU1067").Value = "49" Then
Rows("1070:1118").Hidden = False
Rows("1119:1121").Hidden = True
End If
If Range("AU1067").Value = "50" Then
Rows("1070:1119").Hidden = False
Rows("1120:1121").Hidden = True
End If
If Range("AU1067").Value = "51" Then
Rows("1070:1121").Hidden = False
End If
If Range("AU1130").Value = "2" Then
Rows("1132:1133").Hidden = False
Rows("1134:1162").Hidden = True
End If
If Range("AU1130").Value = "3" Then
Rows("1132:1134").Hidden = False
Rows("1135:1162").Hidden = True
End If
If Range("AU1130").Value = "4" Then
Rows("1132:1135").Hidden = False
Rows("1136:1162").Hidden = True
End If
If Range("AU1130").Value = "5" Then
Rows("1132:1136").Hidden = False
Rows("1137:1162").Hidden = True
End If
If Range("AU1130").Value = "6" Then
Rows("1132:1137").Hidden = False
Rows("1138:1162").Hidden = True
End If
If Range("AU1130").Value = "7" Then
Rows("1132:1138").Hidden = False
Rows("1139:1162").Hidden = True
End If
If Range("AU1130").Value = "8" Then
Rows("1132:1139").Hidden = False
Rows("1140:1162").Hidden = True
End If
If Range("AU1130").Value = "9" Then
Rows("1132:1140").Hidden = False
Rows("1141:1162").Hidden = True
End If
If Range("AU1130").Value = "10" Then
Rows("1132:1141").Hidden = False
Rows("1142:1162").Hidden = True
End If
If Range("AU1130").Value = "11" Then
Rows("1132:1142").Hidden = False
Rows("1143:1162").Hidden = True
End If
If Range("AU1130").Value = "12" Then
Rows("1132:1143").Hidden = False
Rows("1144:1162").Hidden = True
End If
If Range("AU1130").Value = "13" Then
Rows("1132:1144").Hidden = False
Rows("1145:1162").Hidden = True
End If
If Range("AU1130").Value = "14" Then
Rows("1132:1145").Hidden = False
Rows("1146:1162").Hidden = True
End If
If Range("AU1130").Value = "15" Then
Rows("1132:1146").Hidden = False
Rows("1147:1162").Hidden = True
End If
If Range("AU1130").Value = "16" Then
Rows("1132:1147").Hidden = False
Rows("1148:1162").Hidden = True
End If
If Range("AU1130").Value = "17" Then
Rows("1132:1148").Hidden = False
Rows("1149:1162").Hidden = True
End If
If Range("AU1130").Value = "18" Then
Rows("1132:1149").Hidden = False
Rows("1150:1162").Hidden = True
End If
If Range("AU1130").Value = "19" Then
Rows("1132:1150").Hidden = False
Rows("1151:1162").Hidden = True
End If
If Range("AU1130").Value = "20" Then
Rows("1132:1151").Hidden = False
Rows("1152:1162").Hidden = True
End If
If Range("AU1130").Value = "21" Then
Rows("1132:1152").Hidden = False
Rows("1153:1162").Hidden = True
End If
If Range("AU1130").Value = "22" Then
Rows("1132:1153").Hidden = False
Rows("1154:1162").Hidden = True
End If
If Range("AU1130").Value = "23" Then
Rows("1132:1154").Hidden = False
Rows("1155:1162").Hidden = True
End If
If Range("AU1130").Value = "24" Then
Rows("1132:1155").Hidden = False
Rows("1156:1162").Hidden = True
End If
If Range("AU1130").Value = "25" Then
Rows("1132:1156").Hidden = False
Rows("1157:1162").Hidden = True
End If
If Range("AU1130").Value = "26" Then
Rows("1132:1157").Hidden = False
Rows("1158:1162").Hidden = True
End If
If Range("AU1130").Value = "27" Then
Rows("1132:1158").Hidden = False
Rows("1159:1162").Hidden = True
End If
If Range("AU1130").Value = "28" Then
Rows("1132:1159").Hidden = False
Rows("1160:1162").Hidden = True
End If
If Range("AU1130").Value = "29" Then
Rows("1132:1160").Hidden = False
Rows("1161:1162").Hidden = True
End If
If Range("AU1130").Value = "31" Then
Rows("1132:1162").Hidden = False
End If
If Range("AU1174").Value = "2" Then
Rows("1176:1177").Hidden = False
Rows("1178:1296").Hidden = True
End If
If Range("AU1174").Value = "3" Then
Rows("1176:1178").Hidden = False
Rows("1179:1296").Hidden = True
End If
If Range("AU1174").Value = "4" Then
Rows("1176:1179").Hidden = False
Rows("1180:1296").Hidden = True
End If
If Range("AU1174").Value = "5" Then
Rows("1176:1180").Hidden = False
Rows("1181:1296").Hidden = True
End If
If Range("AU1174").Value = "6" Then
Rows("1176:1181").Hidden = False
Rows("1182:1296").Hidden = True
End If
If Range("AU1174").Value = "7" Then
Rows("1176:1182").Hidden = False
Rows("1183:1296").Hidden = True
End If
If Range("AU1174").Value = "8" Then
Rows("1176:1183").Hidden = False
Rows("1184:1296").Hidden = True
End If
If Range("AU1174").Value = "9" Then
Rows("1176:1184").Hidden = False
Rows("1185:1296").Hidden = True
End If
If Range("AU1174").Value = "10" Then
Rows("1176:1185").Hidden = False
Rows("1186:1296").Hidden = True
End If
If Range("AU1174").Value = "11" Then
Rows("1176:1186").Hidden = False
Rows("1187:1296").Hidden = True
End If
If Range("AU1174").Value = "12" Then
Rows("1176:1187").Hidden = False
Rows("1188:1296").Hidden = True
End If
If Range("AU1174").Value = "13" Then
Rows("1176:1188").Hidden = False
Rows("1189:1296").Hidden = True
End If
If Range("AU1174").Value = "14" Then
Rows("1176:1189").Hidden = False
Rows("1190:1296").Hidden = True
End If
If Range("AU1174").Value = "15" Then
Rows("1176:1190").Hidden = False
Rows("1191:1296").Hidden = True
End If
If Range("AU1174").Value = "16" Then
Rows("1176:1191").Hidden = False
Rows("1192:1296").Hidden = True
End If
If Range("AU1174").Value = "17" Then
Rows("1176:1192").Hidden = False
Rows("1193:1296").Hidden = True
End If
If Range("AU1174").Value = "18" Then
Rows("1176:1193").Hidden = False
Rows("1194:1296").Hidden = True
End If
If Range("AU1174").Value = "19" Then
Rows("1176:1194").Hidden = False
Rows("1195:1296").Hidden = True
End If
If Range("AU1174").Value = "20" Then
Rows("1176:1195").Hidden = False
Rows("1196:1296").Hidden = True
End If
If Range("AU1174").Value = "21" Then
Rows("1176:1196").Hidden = False
Rows("1197:1296").Hidden = True
End If
If Range("AU1174").Value = "22" Then
Rows("1176:1197").Hidden = False
Rows("1198:1296").Hidden = True
End If
If Range("AU1174").Value = "23" Then
Rows("1176:1198").Hidden = False
Rows("1199:1296").Hidden = True
End If
If Range("AU1174").Value = "24" Then
Rows("1176:1199").Hidden = False
Rows("1200: 1296").Hidden = True
End If
If Range("AU1174").Value = "25" Then
Rows("1176:1200").Hidden = False
Rows("1201:1296").Hidden = True
End If
If Range("AU1174").Value = "26" Then
Rows("1176:1201").Hidden = False
Rows("1202:1296").Hidden = True
End If
If Range("AU1174").Value = "27" Then
Rows("1176:1202").Hidden = False
Rows("1203:1296").Hidden = True
End If
If Range("AU1174").Value = "28" Then
Rows("1176:1203").Hidden = False
Rows("1204:1296").Hidden = True
End If
If Range("AU1174").Value = "29" Then
Rows("1176:1204").Hidden = False
Rows("1205:1296").Hidden = True
End If
If Range("AU1174").Value = "30" Then
Rows("1176:1205").Hidden = False
Rows("1206:1296").Hidden = True
End If
If Range("AU1174").Value = "31" Then
Rows("1176:1206").Hidden = False
Rows("1207:1296").Hidden = True
End If
If Range("AU1174").Value = "32" Then
Rows("1176:1207").Hidden = False
Rows("1208:1296").Hidden = True
End If
If Range("AU1174").Value = "33" Then
Rows("1176:1208").Hidden = False
Rows("1209:1296").Hidden = True
End If
If Range("AU1174").Value = "34" Then
Rows("1176:1209").Hidden = False
Rows("1210:1296").Hidden = True
End If
If Range("AU1174").Value = "35" Then
Rows("1176:1210").Hidden = False
Rows("1211:1296").Hidden = True
End If
If Range("AU1174").Value = "36" Then
Rows("1176:1211").Hidden = False
Rows("1212:1296").Hidden = True
End If
If Range("AU1174").Value = "37" Then
Rows("1176:1212").Hidden = False
Rows("1213:1296").Hidden = True
End If
If Range("AU1174").Value = "38" Then
Rows("1176:1213").Hidden = False
Rows("1214:1296").Hidden = True
End If
If Range("AU1174").Value = "39" Then
Rows("1176:1214").Hidden = False
Rows("1215:1296").Hidden = True
End If
If Range("AU1174").Value = "40" Then
Rows("1176:1215").Hidden = False
Rows("1216:1296").Hidden = True
End If
If Range("AU1174").Value = "41" Then
Rows("1176:1216").Hidden = False
Rows("1217:1296").Hidden = True
End If
If Range("AU1174").Value = "42" Then
Rows("1176:1217").Hidden = False
Rows("1218:1296").Hidden = True
End If
If Range("AU1174").Value = "43" Then
Rows("1176:1218").Hidden = False
Rows("1219:1296").Hidden = True
End If
If Range("AU1174").Value = "44" Then
Rows("1176:1219").Hidden = False
Rows("1220:1296").Hidden = True
End If
If Range("AU1174").Value = "45" Then
Rows("1176:1220").Hidden = False
Rows("1221:1296").Hidden = True
End If
If Range("AU1174").Value = "46" Then
Rows("1176:1221").Hidden = False
Rows("1222:1296").Hidden = True
End If
If Range("AU1174").Value = "47" Then
Rows("1176:1222").Hidden = False
Rows("1223:1296").Hidden = True
End If
If Range("AU1174").Value = "48" Then
Rows("1176:1223").Hidden = False
Rows("1224:1296").Hidden = True
End If
If Range("AU1174").Value = "49" Then
Rows("1176:1224").Hidden = False
Rows("1225:1296").Hidden = True
End If
If Range("AU1174").Value = "50" Then
Rows("1176:1225").Hidden = False
Rows("1226:1296").Hidden = True
End If
If Range("AU1174").Value = "51" Then
Rows("1176:1226").Hidden = False
Rows("1227:1296").Hidden = True
End If
If Range("AU1174").Value = "52" Then
Rows("1176:1227").Hidden = False
Rows("1228:1296").Hidden = True
End If
If Range("AU1174").Value = "53" Then
Rows("1176:1228").Hidden = False
Rows("1229:1296").Hidden = True
End If
If Range("AU1174").Value = "54" Then
Rows("1176:1229").Hidden = False
Rows("1230:1296").Hidden = True
End If
If Range("AU1174").Value = "55" Then
Rows("1176:1230").Hidden = False
Rows("1231: 1296").Hidden = True
End If
If Range("AU1174").Value = "56" Then
Rows("1176:1231").Hidden = False
Rows("1232:1296").Hidden = True
End If
If Range("AU1174").Value = "57" Then
Rows("1176:1232").Hidden = False
Rows("1233:1296").Hidden = True
End If
If Range("AU1174").Value = "58" Then
Rows("1176:1233").Hidden = False
Rows("1234:1296").Hidden = True
End If
If Range("AU1174").Value = "59" Then
Rows("1176:1234").Hidden = False
Rows("1235:1296").Hidden = True
End If
If Range("AU1174").Value = "60" Then
Rows("1176:1235").Hidden = False
Rows("1236:1296").Hidden = True
End If
If Range("AU1174").Value = "61" Then
Rows("1176:1236").Hidden = False
Rows("1237:1296").Hidden = True
End If
If Range("AU1174").Value = "62" Then
Rows("1176:1237").Hidden = False
Rows("1238:1296").Hidden = True
End If
If Range("AU1174").Value = "63" Then
Rows("1176:1238").Hidden = False
Rows("1239:1296").Hidden = True
End If
If Range("AU1174").Value = "64" Then
Rows("1176:1239").Hidden = False
Rows("1240:1296").Hidden = True
End If
If Range("AU1174").Value = "65" Then
Rows("1176:1240").Hidden = False
Rows("1241:1296").Hidden = True
End If
If Range("AU1174").Value = "66" Then
Rows("1176:1241").Hidden = False
Rows("1242:1296").Hidden = True
End If
If Range("AU1174").Value = "67" Then
Rows("1176:1242").Hidden = False
Rows("1243:1296").Hidden = True
End If
If Range("AU1174").Value = "68" Then
Rows("1176:1243").Hidden = False
Rows("1244:1296").Hidden = True
End If
If Range("AU1174").Value = "69" Then
Rows("1176:1244").Hidden = False
Rows("1245:1296").Hidden = True
End If
If Range("AU1174").Value = "70" Then
Rows("1176:1245").Hidden = False
Rows("1246:1296").Hidden = True
End If
If Range("AU1174").Value = "71" Then
Rows("1176:1246").Hidden = False
Rows("1247:1296").Hidden = True
End If
If Range("AU1174").Value = "72" Then
Rows("1176:1247").Hidden = False
Rows("1248:1296").Hidden = True
End If
If Range("AU1174").Value = "73" Then
Rows("1176:1248").Hidden = False
Rows("1249:1296").Hidden = True
End If
If Range("AU1174").Value = "74" Then
Rows("1176:1249").Hidden = False
Rows("1250:1296").Hidden = True
End If
If Range("AU1174").Value = "75" Then
Rows("1176:1250").Hidden = False
Rows("1251:1296").Hidden = True
End If
If Range("AU1174").Value = "76" Then
Rows("1176:1251").Hidden = False
Rows("1252:1296").Hidden = True
End If
If Range("AU1174").Value = "77" Then
Rows("1176:1252").Hidden = False
Rows("1253:1296").Hidden = True
End If
If Range("AU1174").Value = "78" Then
Rows("1176:1253").Hidden = False
Rows("1254:1296").Hidden = True
End If
If Range("AU1174").Value = "79" Then
Rows("1176:1254").Hidden = False
Rows("1255:1296").Hidden = True
End If
If Range("AU1174").Value = "80" Then
Rows("1176:1255").Hidden = False
Rows("1256:1296").Hidden = True
End If
If Range("AU1174").Value = "81" Then
Rows("1176:1256").Hidden = False
Rows("1257:1296").Hidden = True
End If
If Range("AU1174").Value = "82" Then
Rows("1176:1257").Hidden = False
Rows("1258:1296").Hidden = True
End If
If Range("AU1174").Value = "83" Then
Rows("1176:1258").Hidden = False
Rows("1259:1296").Hidden = True
End If
If Range("AU1174").Value = "84" Then
Rows("1176:1259").Hidden = False
Rows("1260:1296").Hidden = True
End If
If Range("AU1174").Value = "85" Then
Rows("1176:1260").Hidden = False
Rows("1261:1296").Hidden = True
End If
If Range("AU1174").Value = "86" Then
Rows("1176:1261").Hidden = False
Rows("1262:1296").Hidden = True
End If
If Range("AU1174").Value = "87" Then
Rows("1176:1262").Hidden = False
Rows("1263: 1296").Hidden = True
End If
If Range("AU1174").Value = "88" Then
Rows("1176:1263").Hidden = False
Rows("1264:1296").Hidden = True
End If
If Range("AU1174").Value = "89" Then
Rows("1176:1264").Hidden = False
Rows("1265:1296").Hidden = True
End If
If Range("AU1174").Value = "90" Then
Rows("1176:1265").Hidden = False
Rows("1266:1296").Hidden = True
End If
If Range("AU1174").Value = "91" Then
Rows("1176:1266").Hidden = False
Rows("1267:1296").Hidden = True
End If
If Range("AU1174").Value = "92" Then
Rows("1176:1267").Hidden = False
Rows("1268:1296").Hidden = True
End If
If Range("AU1174").Value = "93" Then
Rows("1176:1268").Hidden = False
Rows("1269: 1296").Hidden = True
End If
If Range("AU1174").Value = "94" Then
Rows("1176:1269").Hidden = False
Rows("1270:1296").Hidden = True
End If
If Range("AU1174").Value = "95" Then
Rows("1176:1270").Hidden = False
Rows("1271:1296").Hidden = True
End If
If Range("AU1174").Value = "96" Then
Rows("1176:1271").Hidden = False
Rows("1272:1296").Hidden = True
End If
If Range("AU1174").Value = "97" Then
Rows("1176:1272").Hidden = False
Rows("1273:1296").Hidden = True
End If
If Range("AU1174").Value = "98" Then
Rows("1176:1273").Hidden = False
Rows("1274:1296").Hidden = True
End If
If Range("AU1174").Value = "99" Then
Rows("1176:1274").Hidden = False
Rows("1275:1296").Hidden = True
End If
If Range("AU1174").Value = "100" Then
Rows("1176:1275").Hidden = False
Rows("1276:1296").Hidden = True
End If
If Range("AU1174").Value = "101" Then
Rows("1176:1276").Hidden = False
Rows("1277:1296").Hidden = True
End If
If Range("AU1174").Value = "102" Then
Rows("1176:1277").Hidden = False
Rows("1278:1296").Hidden = True
End If
If Range("AU1174").Value = "103" Then
Rows("1176:1278").Hidden = False
Rows("1279: 1296").Hidden = True
End If
If Range("AU1174").Value = "104" Then
Rows("1176:1279").Hidden = False
Rows("1280:1296").Hidden = True
End If
If Range("AU1174").Value = "105" Then
Rows("1176:1280").Hidden = False
Rows("1281:1296").Hidden = True
End If
If Range("AU1174").Value = "106" Then
Rows("1176:1281").Hidden = False
Rows("1282: 1296").Hidden = True
End If
If Range("AU1174").Value = "107" Then
Rows("1176:1282").Hidden = False
Rows("1283:1296").Hidden = True
End If
If Range("AU1174").Value = "108" Then
Rows("1176:1283").Hidden = False
Rows("1284:1296").Hidden = True
End If
If Range("AU1174").Value = "109" Then
Rows("1176:1284").Hidden = False
Rows("1285:1296").Hidden = True
End If
If Range("AU1174").Value = "110" Then
Rows("1176:1285").Hidden = False
Rows("1286:1296").Hidden = True
End If
If Range("AU1174").Value = "111" Then
Rows("1176:1286").Hidden = False
Rows("1287:1296").Hidden = True
End If
If Range("AU1174").Value = "112" Then
Rows("1176:1287").Hidden = False
Rows("1288: 1296").Hidden = True
End If
If Range("AU1174").Value = "113" Then
Rows("1176:1288").Hidden = False
Rows("1289:1296").Hidden = True
End If
If Range("AU1174").Value = "114" Then
Rows("1176:1289").Hidden = False
Rows("1290:1296").Hidden = True
End If
If Range("AU1174").Value = "115" Then
Rows("1176:1290").Hidden = False
Rows("1291:1296").Hidden = True
End If
If Range("AU1174").Value = "116" Then
Rows("1176:1291").Hidden = False
Rows("1292:1296").Hidden = True
End If
If Range("AU1174").Value = "117" Then
Rows("1176:1292").Hidden = False
Rows("1293:1296").Hidden = True
End If
If Range("AU1174").Value = "118" Then
Rows("1176:1293").Hidden = False
Rows("1294:1296").Hidden = True
End If
If Range("AU1174").Value = "119" Then
Rows("1176:1294").Hidden = False
Rows("1295:1296").Hidden = True
End If
If Range("AU1174").Value = "120" Then
Rows("1176:1295").Hidden = False
Rows("1296:1296").Hidden = True
End If
If Range("AU1174").Value = "121" Then
Rows("1176:1296").Hidden = False
End If
End Sub
Sub ExecuteBlock4()
If Range("AU1304").Value = "2" Then
Rows("1305:1306").Hidden = False
Rows("1307:1319").Hidden = True
End If
If Range("AU1304").Value = "3" Then
Rows("1305:1307").Hidden = False
Rows("1308:1319").Hidden = True
End If
If Range("AU1304").Value = "4" Then
Rows("1305:1308").Hidden = False
Rows("1309:1319").Hidden = True
End If
If Range("AU1304").Value = "5" Then
Rows("1305:1309").Hidden = False
Rows("1310:1319").Hidden = True
End If
If Range("AU1304").Value = "6" Then
Rows("1305:1310").Hidden = False
Rows("1311:1319").Hidden = True
End If
If Range("AU1304").Value = "7" Then
Rows("1305:1311").Hidden = False
Rows("1312:1319").Hidden = True
End If
If Range("AU1304").Value = "8" Then
Rows("1305:1312").Hidden = False
Rows("1313:1319").Hidden = True
End If
If Range("AU1304").Value = "9" Then
Rows("1305:1313").Hidden = False
Rows("1314:1319").Hidden = True
End If
If Range("AU1304").Value = "10" Then
Rows("1305:1314").Hidden = False
Rows("1315:1319").Hidden = True
End If
If Range("AU1304").Value = "11" Then
Rows("1305:1315").Hidden = False
Rows("1316:1319").Hidden = True
End If
If Range("AU1304").Value = "12" Then
Rows("1305:1316").Hidden = False
Rows("1317:1319").Hidden = True
End If
If Range("AU1304").Value = "13" Then
Rows("1305:1317").Hidden = False
Rows("1318:1319").Hidden = True
End If
If Range("AU1304").Value = "14" Then
Rows("1305:1318").Hidden = False
Rows("1319:1319").Hidden = True
End If
If Range("AU1304").Value = "15" Then
Rows("1305:1319").Hidden = False
End If
If Range("AU1330").Value = "2" Then
Rows("1331:1332").Hidden = False
Rows("1333:1345").Hidden = True
End If
If Range("AU1330").Value = "3" Then
Rows("1331:1333").Hidden = False
Rows("1334:1345").Hidden = True
End If
If Range("AU1330").Value = "4" Then
Rows("1331:1334").Hidden = False
Rows("1335:1345").Hidden = True
End If
If Range("AU1330").Value = "5" Then
Rows("1331:1335").Hidden = False
Rows("1336:1345").Hidden = True
End If
If Range("AU1330").Value = "6" Then
Rows("1331:1336").Hidden = False
Rows("1337:1345").Hidden = True
End If
If Range("AU1330").Value = "7" Then
Rows("1331:1337").Hidden = False
Rows("1338:1345").Hidden = True
End If
If Range("AU1330").Value = "8" Then
Rows("1331:1338").Hidden = False
Rows("1339:1345").Hidden = True
End If
If Range("AU1330").Value = "9" Then
Rows("1331:1339").Hidden = False
Rows("1340:1345").Hidden = True
End If
If Range("AU1330").Value = "10" Then
Rows("1331:1340").Hidden = False
Rows("1341:1345").Hidden = True
End If
If Range("AU1330").Value = "11" Then
Rows("1331:1341").Hidden = False
Rows("1342:1345").Hidden = True
End If
If Range("AU1330").Value = "12" Then
Rows("1331:1342").Hidden = False
Rows("1343:1345").Hidden = True
End If
If Range("AU1330").Value = "13" Then
Rows("1331:1343").Hidden = False
Rows("1344:1345").Hidden = True
End If
If Range("AU1330").Value = "14" Then
Rows("1331:1344").Hidden = False
Rows("1345:1345").Hidden = True
End If
If Range("AU1330").Value = "15" Then
Rows("1331:1345").Hidden = False
End If
If Range("AU1351").Value = "2" Then
Rows("1353:1354").Hidden = False
Rows("1355:1373").Hidden = True
End If
If Range("AU1351").Value = "3" Then
Rows("1353:1355").Hidden = False
Rows("1356:1373").Hidden = True
End If
If Range("AU1351").Value = "4" Then
Rows("1353:1356").Hidden = False
Rows("1357:1373").Hidden = True
End If
If Range("AU1351").Value = "5" Then
Rows("1353:1357").Hidden = False
Rows("1358:1373").Hidden = True
End If
If Range("AU1351").Value = "6" Then
Rows("1353:1358").Hidden = False
Rows("1359:1373").Hidden = True
End If
If Range("AU1351").Value = "7" Then
Rows("1353:1359").Hidden = False
Rows("1360:1373").Hidden = True
End If
If Range("AU1351").Value = "8" Then
Rows("1353:1360").Hidden = False
Rows("1361:1373").Hidden = True
End If
If Range("AU1351").Value = "9" Then
Rows("1353:1361").Hidden = False
Rows("1362:1373").Hidden = True
End If
If Range("AU1351").Value = "10" Then
Rows("1353:1362").Hidden = False
Rows("1363:1373").Hidden = True
End If
If Range("AU1351").Value = "11" Then
Rows("1353:1363").Hidden = False
Rows("1364:1373").Hidden = True
End If
If Range("AU1351").Value = "12" Then
Rows("1353:1364").Hidden = False
Rows("1365:1373").Hidden = True
End If
If Range("AU1351").Value = "13" Then
Rows("1353:1365").Hidden = False
Rows("1366:1373").Hidden = True
End If
If Range("AU1351").Value = "14" Then
Rows("1353:1366").Hidden = False
Rows("1367:1373").Hidden = True
End If
If Range("AU1351").Value = "15" Then
Rows("1353:1367").Hidden = False
Rows("1368:1373").Hidden = True
End If
If Range("AU1351").Value = "16" Then
Rows("1353:1368").Hidden = False
Rows("1369:1373").Hidden = True
End If
If Range("AU1351").Value = "17" Then
Rows("1353:1369").Hidden = False
Rows("1370:1373").Hidden = True
End If
If Range("AU1351").Value = "18" Then
Rows("1353:1370").Hidden = False
Rows("1371:1373").Hidden = True
End If
If Range("AU1351").Value = "19" Then
Rows("1353:1371").Hidden = False
Rows("1372:1373").Hidden = True
End If
If Range("AU1351").Value = "20" Then
Rows("1353:1372").Hidden = False
Rows("1373:1373").Hidden = True
End If
If Range("AU1351").Value = "21" Then
Rows("1353:1373").Hidden = False
End If
If Range("AU1426").Value = "2" Then
Rows("1427:1428").Hidden = False
Rows("1429:1577").Hidden = True
End If
If Range("AU1426").Value = "3" Then
Rows("1427:1429").Hidden = False
Rows("1430:1577").Hidden = True
End If
If Range("AU1426").Value = "4" Then
Rows("1427:1430").Hidden = False
Rows("1431:1577").Hidden = True
End If
If Range("AU1426").Value = "5" Then
Rows("1427:1431").Hidden = False
Rows("1432:1577").Hidden = True
End If
If Range("AU1426").Value = "6" Then
Rows("1427:1432").Hidden = False
Rows("1433:1577").Hidden = True
End If
If Range("AU1426").Value = "7" Then
Rows("1427:1433").Hidden = False
Rows("1434:1577").Hidden = True
End If
If Range("AU1426").Value = "8" Then
Rows("1427:1434").Hidden = False
Rows("1435:1577").Hidden = True
End If
If Range("AU1426").Value = "9" Then
Rows("1427:1435").Hidden = False
Rows("1436:1577").Hidden = True
End If
If Range("AU1426").Value = "10" Then
Rows("1427:1436").Hidden = False
Rows("1437:1577").Hidden = True
End If
If Range("AU1426").Value = "11" Then
Rows("1427:1437").Hidden = False
Rows("1438:1577").Hidden = True
End If
If Range("AU1426").Value = "12" Then
Rows("1427:1438").Hidden = False
Rows("1439:1577").Hidden = True
End If
If Range("AU1426").Value = "13" Then
Rows("1427:1439").Hidden = False
Rows("1440:1577").Hidden = True
End If
If Range("AU1426").Value = "14" Then
Rows("1427:1440").Hidden = False
Rows("1441:1577").Hidden = True
End If
If Range("AU1426").Value = "15" Then
Rows("1427:1441").Hidden = False
Rows("1442:1577").Hidden = True
End If
If Range("AU1426").Value = "16" Then
Rows("1427:1442").Hidden = False
Rows("1443:1577").Hidden = True
End If
If Range("AU1426").Value = "17" Then
Rows("1427:1443").Hidden = False
Rows("1444:1577").Hidden = True
End If
If Range("AU1426").Value = "18" Then
Rows("1427:1444").Hidden = False
Rows("1445:1577").Hidden = True
End If
If Range("AU1426").Value = "19" Then
Rows("1427:1445").Hidden = False
Rows("1446:1577").Hidden = True
End If
If Range("AU1426").Value = "20" Then
Rows("1427:1446").Hidden = False
Rows("1447:1577").Hidden = True
End If
If Range("AU1426").Value = "21" Then
Rows("1427:1447").Hidden = False
Rows("1448:1577").Hidden = True
End If
If Range("AU1426").Value = "22" Then
Rows("1427:1448").Hidden = False
Rows("1449:1577").Hidden = True
End If
If Range("AU1426").Value = "23" Then
Rows("1427:1449").Hidden = False
Rows("1450:1577").Hidden = True
End If
If Range("AU1426").Value = "24" Then
Rows("1427:1450").Hidden = False
Rows("1451:1577").Hidden = True
End If
If Range("AU1426").Value = "25" Then
Rows("1427:1451").Hidden = False
Rows("1452:1577").Hidden = True
End If
If Range("AU1426").Value = "26" Then
Rows("1427:1452").Hidden = False
Rows("1453:1577").Hidden = True
End If
If Range("AU1426").Value = "27" Then
Rows("1427:1453").Hidden = False
Rows("1454:1577").Hidden = True
End If
If Range("AU1426").Value = "28" Then
Rows("1427:1454").Hidden = False
Rows("1455:1577").Hidden = True
End If
If Range("AU1426").Value = "29" Then
Rows("1427:1455").Hidden = False
Rows("1456:1577").Hidden = True
End If
If Range("AU1426").Value = "30" Then
Rows("1427:1456").Hidden = False
Rows("1457:1577").Hidden = True
End If
If Range("AU1426").Value = "31" Then
Rows("1427:1457").Hidden = False
Rows("1458:1577").Hidden = True
End If
If Range("AU1426").Value = "32" Then
Rows("1427:1458").Hidden = False
Rows("1459:1577").Hidden = True
End If
If Range("AU1426").Value = "33" Then
Rows("1427:1459").Hidden = False
Rows("1460:1577").Hidden = True
End If
If Range("AU1426").Value = "34" Then
Rows("1427:1460").Hidden = False
Rows("1461:1577").Hidden = True
End If
If Range("AU1426").Value = "35" Then
Rows("1427:1461").Hidden = False
Rows("1462:1577").Hidden = True
End If
If Range("AU1426").Value = "36" Then
Rows("1427:1462").Hidden = False
Rows("1463:1577").Hidden = True
End If
If Range("AU1426").Value = "37" Then
Rows("1427:1463").Hidden = False
Rows("1464:1577").Hidden = True
End If
If Range("AU1426").Value = "38" Then
Rows("1427:1464").Hidden = False
Rows("1465:1577").Hidden = True
End If
If Range("AU1426").Value = "39" Then
Rows("1427:1465").Hidden = False
Rows("1466: 1577").Hidden = True
End If
If Range("AU1426").Value = "40" Then
Rows("1427:1466").Hidden = False
Rows("1467:1577").Hidden = True
End If
If Range("AU1426").Value = "41" Then
Rows("1427:1467").Hidden = False
Rows("1468:1577").Hidden = True
End If
If Range("AU1426").Value = "42" Then
Rows("1427:1468").Hidden = False
Rows("1469:1577").Hidden = True
End If
If Range("AU1426").Value = "43" Then
Rows("1427:1469").Hidden = False
Rows("1470:1577").Hidden = True
End If
If Range("AU1426").Value = "44" Then
Rows("1427:1470").Hidden = False
Rows("1471:1577").Hidden = True
End If
If Range("AU1426").Value = "45" Then
Rows("1427:1471").Hidden = False
Rows("1472:1577").Hidden = True
End If
If Range("AU1426").Value = "46" Then
Rows("1427:1472").Hidden = False
Rows("1473:1577").Hidden = True
End If
If Range("AU1426").Value = "47" Then
Rows("1427:1473").Hidden = False
Rows("1474:1577").Hidden = True
End If
If Range("AU1426").Value = "48" Then
Rows("1427:1474").Hidden = False
Rows("1475:1577").Hidden = True
End If
If Range("AU1426").Value = "49" Then
Rows("1427:1475").Hidden = False
Rows("1476:1577").Hidden = True
End If
If Range("AU1426").Value = "50" Then
Rows("1427:1476").Hidden = False
Rows("1477:1577").Hidden = True
End If
If Range("AU1426").Value = "51" Then
Rows("1427:1477").Hidden = False
Rows("1478:1577").Hidden = True
End If
If Range("AU1426").Value = "52" Then
Rows("1427:1478").Hidden = False
Rows("1479:1577").Hidden = True
End If
If Range("AU1426").Value = "53" Then
Rows("1427:1479").Hidden = False
Rows("1480:1577").Hidden = True
End If
If Range("AU1426").Value = "54" Then
Rows("1427:1480").Hidden = False
Rows("1481:1577").Hidden = True
End If
If Range("AU1426").Value = "55" Then
Rows("1427:1481").Hidden = False
Rows("1482:1577").Hidden = True
End If
If Range("AU1426").Value = "56" Then
Rows("1427:1482").Hidden = False
Rows("1483:1577").Hidden = True
End If
If Range("AU1426").Value = "57" Then
Rows("1427:1483").Hidden = False
Rows("1484:1577").Hidden = True
End If
If Range("AU1426").Value = "58" Then
Rows("1427:1484").Hidden = False
Rows("1485:1577").Hidden = True
End If
If Range("AU1426").Value = "59" Then
Rows("1427:1485").Hidden = False
Rows("1486:1577").Hidden = True
End If
If Range("AU1426").Value = "60" Then
Rows("1427:1486").Hidden = False
Rows("1487:1577").Hidden = True
End If
If Range("AU1426").Value = "61" Then
Rows("1427:1487").Hidden = False
Rows("1488:1577").Hidden = True
End If
If Range("AU1426").Value = "62" Then
Rows("1427:1488").Hidden = False
Rows("1489:1577").Hidden = True
End If
If Range("AU1426").Value = "63" Then
Rows("1427:1489").Hidden = False
Rows("1490:1577").Hidden = True
End If
If Range("AU1426").Value = "64" Then
Rows("1427:1490").Hidden = False
Rows("1491:1577").Hidden = True
End If
If Range("AU1426").Value = "65" Then
Rows("1427:1491").Hidden = False
Rows("1492:1577").Hidden = True
End If
If Range("AU1426").Value = "66" Then
Rows("1427:1492").Hidden = False
Rows("1493:1577").Hidden = True
End If
If Range("AU1426").Value = "67" Then
Rows("1427:1493").Hidden = False
Rows("1494:1577").Hidden = True
End If
If Range("AU1426").Value = "68" Then
Rows("1427:1494").Hidden = False
Rows("1495:1577").Hidden = True
End If
If Range("AU1426").Value = "69" Then
Rows("1427:1495").Hidden = False
Rows("1496:1577").Hidden = True
End If
If Range("AU1426").Value = "70" Then
Rows("1427:1496").Hidden = False
Rows("1497:1577").Hidden = True
End If
If Range("AU1426").Value = "71" Then
Rows("1427:1497").Hidden = False
Rows("1498: 1577").Hidden = True
End If
If Range("AU1426").Value = "72" Then
Rows("1427:1498").Hidden = False
Rows("1499:1577").Hidden = True
End If
If Range("AU1426").Value = "73" Then
Rows("1427:1499").Hidden = False
Rows("1500:1577").Hidden = True
End If
If Range("AU1426").Value = "74" Then
Rows("1427:1500").Hidden = False
Rows("1501:1577").Hidden = True
End If
If Range("AU1426").Value = "75" Then
Rows("1427:1501").Hidden = False
Rows("1502:1577").Hidden = True
End If
If Range("AU1426").Value = "76" Then
Rows("1427:1502").Hidden = False
Rows("1503: 1577").Hidden = True
End If
If Range("AU1426").Value = "77" Then
Rows("1427:1503").Hidden = False
Rows("1504: 1577").Hidden = True
End If
If Range("AU1426").Value = "78" Then
Rows("1427:1504").Hidden = False
Rows("1505:1577").Hidden = True
End If
If Range("AU1426").Value = "79" Then
Rows("1427:1505").Hidden = False
Rows("1506:1577").Hidden = True
End If
If Range("AU1426").Value = "80" Then
Rows("1427:1506").Hidden = False
Rows("1507:1577").Hidden = True
End If
If Range("AU1426").Value = "81" Then
Rows("1427:1507").Hidden = False
Rows("1508:1577").Hidden = True
End If
If Range("AU1426").Value = "82" Then
Rows("1427:1508").Hidden = False
Rows("1509:1577").Hidden = True
End If
If Range("AU1426").Value = "83" Then
Rows("1427:1509").Hidden = False
Rows("1510:1577").Hidden = True
End If
If Range("AU1426").Value = "84" Then
Rows("1427:1510").Hidden = False
Rows("1511:1577").Hidden = True
End If
If Range("AU1426").Value = "85" Then
Rows("1427:1511").Hidden = False
Rows("1512:1577").Hidden = True
End If
If Range("AU1426").Value = "86" Then
Rows("1427:1512").Hidden = False
Rows("1513:1577").Hidden = True
End If
If Range("AU1426").Value = "87" Then
Rows("1427:1513").Hidden = False
Rows("1514:1577").Hidden = True
End If
If Range("AU1426").Value = "88" Then
Rows("1427:1514").Hidden = False
Rows("1515:1577").Hidden = True
End If
If Range("AU1426").Value = "89" Then
Rows("1427:1515").Hidden = False
Rows("1516:1577").Hidden = True
End If
If Range("AU1426").Value = "90" Then
Rows("1427:1516").Hidden = False
Rows("1517:1577").Hidden = True
End If
If Range("AU1426").Value = "91" Then
Rows("1427:1517").Hidden = False
Rows("1518:1577").Hidden = True
End If
If Range("AU1426").Value = "92" Then
Rows("1427:1518").Hidden = False
Rows("1519:1577").Hidden = True
End If
If Range("AU1426").Value = "93" Then
Rows("1427:1519").Hidden = False
Rows("1520:1577").Hidden = True
End If
If Range("AU1426").Value = "94" Then
Rows("1427:1520").Hidden = False
Rows("1521:1577").Hidden = True
End If
If Range("AU1426").Value = "95" Then
Rows("1427:1521").Hidden = False
Rows("1522:1577").Hidden = True
End If
If Range("AU1426").Value = "96" Then
Rows("1427:1522").Hidden = False
Rows("1523:1577").Hidden = True
End If
If Range("AU1426").Value = "97" Then
Rows("1427:1523").Hidden = False
Rows("1524:1577").Hidden = True
End If
If Range("AU1426").Value = "98" Then
Rows("1427:1524").Hidden = False
Rows("1525:1577").Hidden = True
End If
If Range("AU1426").Value = "99" Then
Rows("1427:1525").Hidden = False
Rows("1526:1577").Hidden = True
End If
If Range("AU1426").Value = "100" Then
Rows("1427:1526").Hidden = False
Rows("1527:1577").Hidden = True
End If
If Range("AU1426").Value = "101" Then
Rows("1427:1527").Hidden = False
Rows("1528:1577").Hidden = True
End If
If Range("AU1426").Value = "102" Then
Rows("1427:1528").Hidden = False
Rows("1529:1577").Hidden = True
End If
If Range("AU1426").Value = "103" Then
Rows("1427:1529").Hidden = False
Rows("1530:1577").Hidden = True
End If
If Range("AU1426").Value = "104" Then
Rows("1427:1530").Hidden = False
Rows("1531:1577").Hidden = True
End If
If Range("AU1426").Value = "105" Then
Rows("1427:1531").Hidden = False
Rows("1532:1577").Hidden = True
End If
If Range("AU1426").Value = "106" Then
Rows("1427:1532").Hidden = False
Rows("1533:1577").Hidden = True
End If
If Range("AU1426").Value = "107" Then
Rows("1427:1533").Hidden = False
Rows("1534:1577").Hidden = True
End If
If Range("AU1426").Value = "108" Then
Rows("1427:1534").Hidden = False
Rows("1535:1577").Hidden = True
End If
If Range("AU1426").Value = "109" Then
Rows("1427:1535").Hidden = False
Rows("1536:1577").Hidden = True
End If
If Range("AU1426").Value = "110" Then
Rows("1427:1536").Hidden = False
Rows("1537:1577").Hidden = True
End If
If Range("AU1426").Value = "111" Then
Rows("1427:1537").Hidden = False
Rows("1538:1577").Hidden = True
End If
If Range("AU1426").Value = "112" Then
Rows("1427:1538").Hidden = False
Rows("1539:1577").Hidden = True
End If
If Range("AU1426").Value = "113" Then
Rows("1427:1539").Hidden = False
Rows("1540:1577").Hidden = True
End If
If Range("AU1426").Value = "114" Then
Rows("1427:1540").Hidden = False
Rows("1541:1577").Hidden = True
End If
If Range("AU1426").Value = "115" Then
Rows("1427:1541").Hidden = False
Rows("1542:1577").Hidden = True
End If
If Range("AU1426").Value = "116" Then
Rows("1427:1542").Hidden = False
Rows("1543:1577").Hidden = True
End If
If Range("AU1426").Value = "117" Then
Rows("1427:1543").Hidden = False
Rows("1544:1577").Hidden = True
End If
If Range("AU1426").Value = "118" Then
Rows("1427:1544").Hidden = False
Rows("1545:1577").Hidden = True
End If
If Range("AU1426").Value = "119" Then
Rows("1427:1545").Hidden = False
Rows("1546:1577").Hidden = True
End If
If Range("AU1426").Value = "120" Then
Rows("1427:1546").Hidden = False
Rows("1547:1577").Hidden = True
End If
If Range("AU1426").Value = "121" Then
Rows("1427:1547").Hidden = False
Rows("1548:1577").Hidden = True
End If
If Range("AU1426").Value = "122" Then
Rows("1427:1548").Hidden = False
Rows("1549:1577").Hidden = True
End If
If Range("AU1426").Value = "123" Then
Rows("1427:1549").Hidden = False
Rows("1550:1577").Hidden = True
End If
If Range("AU1426").Value = "124" Then
Rows("1427:1550").Hidden = False
Rows("1551:1577").Hidden = True
End If
If Range("AU1426").Value = "125" Then
Rows("1427:1551").Hidden = False
Rows("1552:1577").Hidden = True
End If
If Range("AU1426").Value = "126" Then
Rows("1427:1552").Hidden = False
Rows("1553:1577").Hidden = True
End If
If Range("AU1426").Value = "127" Then
Rows("1427:1553").Hidden = False
Rows("1554:1577").Hidden = True
End If
If Range("AU1426").Value = "128" Then
Rows("1427:1554").Hidden = False
Rows("1555:1577").Hidden = True
End If
If Range("AU1426").Value = "129" Then
Rows("1427:1555").Hidden = False
Rows("1556:1577").Hidden = True
End If
If Range("AU1426").Value = "130" Then
Rows("1427:1556").Hidden = False
Rows("1557:1577").Hidden = True
End If
If Range("AU1426").Value = "131" Then
Rows("1427:1557").Hidden = False
Rows("1558:1577").Hidden = True
End If
If Range("AU1426").Value = "132" Then
Rows("1427:1558").Hidden = False
Rows("1559:1577").Hidden = True
End If
If Range("AU1426").Value = "133" Then
Rows("1427:1559").Hidden = False
Rows("1560:1577").Hidden = True
End If
If Range("AU1426").Value = "134" Then
Rows("1427:1560").Hidden = False
Rows("1561:1577").Hidden = True
End If
If Range("AU1426").Value = "135" Then
Rows("1427:1561").Hidden = False
Rows("1562:1577").Hidden = True
End If
If Range("AU1426").Value = "136" Then
Rows("1427:1562").Hidden = False
Rows("1563:1577").Hidden = True
End If
If Range("AU1426").Value = "137" Then
Rows("1427:1563").Hidden = False
Rows("1564:1577").Hidden = True
End If
If Range("AU1426").Value = "138" Then
Rows("1427:1564").Hidden = False
Rows("1565:1577").Hidden = True
End If
If Range("AU1426").Value = "139" Then
Rows("1427:1565").Hidden = False
Rows("1566:1577").Hidden = True
End If
If Range("AU1426").Value = "140" Then
Rows("1427:1566").Hidden = False
Rows("1567:1577").Hidden = True
End If
If Range("AU1426").Value = "141" Then
Rows("1427:1567").Hidden = False
Rows("1568: 1577").Hidden = True
End If
If Range("AU1426").Value = "142" Then
Rows("1427:1568").Hidden = False
Rows("1569: 1577").Hidden = True
End If
If Range("AU1426").Value = "143" Then
Rows("1427:1569").Hidden = False
Rows("1570: 1577").Hidden = True
End If
If Range("AU1426").Value = "144" Then
Rows("1427:1570").Hidden = False
Rows("1571: 1577").Hidden = True
End If
If Range("AU1426").Value = "145" Then
Rows("1427:1571").Hidden = False
Rows("1572: 1577").Hidden = True
End If
If Range("AU1426").Value = "146" Then
Rows("1427:1572").Hidden = False
Rows("1573: 1577").Hidden = True
End If
If Range("AU1426").Value = "147" Then
Rows("1427:1573").Hidden = False
Rows("1574: 1577").Hidden = True
End If
If Range("AU1426").Value = "148" Then
Rows("1427:1574").Hidden = False
Rows("1575: 1577").Hidden = True
End If
If Range("AU1426").Value = "149" Then
Rows("1427:1575").Hidden = False
Rows("1576: 1577").Hidden = True
End If
If Range("AU1426").Value = "150" Then
Rows("1427:1576").Hidden = False
Rows("1577: 1577").Hidden = True
End If
If Range("AU1426").Value = "151" Then
Rows("1427:1577").Hidden = False
End If
If Range("AU1596").Value = "2" Then
Rows("1596:1597").Hidden = False
Rows("1598:1608").Hidden = True
End If
If Range("AU1596").Value = "3" Then
Rows("1596:1598").Hidden = False
Rows("1599:1608").Hidden = True
End If
If Range("AU1596").Value = "4" Then
Rows("1596:1599").Hidden = False
Rows("1600:1608").Hidden = True
End If
If Range("AU1596").Value = "5" Then
Rows("1596:1600").Hidden = False
Rows("1601: 1608").Hidden = True
End If
If Range("AU1596").Value = "6" Then
Rows("1596:1601").Hidden = False
Rows("1602:1608").Hidden = True
End If
If Range("AU1596").Value = "7" Then
Rows("1596:1602").Hidden = False
Rows("1603:1608").Hidden = True
End If
If Range("AU1596").Value = "8" Then
Rows("1596:1603").Hidden = False
Rows("1604:1608").Hidden = True
End If
If Range("AU1596").Value = "9" Then
Rows("1596:1604").Hidden = False
Rows("1605:1608").Hidden = True
End If
If Range("AU1596").Value = "10" Then
Rows("1596:1605").Hidden = False
Rows("1606:1608").Hidden = True
End If
If Range("AU1596").Value = "11" Then
Rows("1596:1606").Hidden = False
Rows("1607:1608").Hidden = True
End If
If Range("AU1596").Value = "12" Then
Rows("1596:1607").Hidden = False
Rows("1608:1608").Hidden = True
End If
If Range("AU1596").Value = "13" Then
Rows("1596:1608").Hidden = False
End If
If Range("AU1616").Value = "2" Then
Rows("1616:1617").Hidden = False
Rows("1618:1628").Hidden = True
End If
If Range("AU1616").Value = "3" Then
Rows("1616:1618").Hidden = False
Rows("1619:1628").Hidden = True
End If
If Range("AU1596").Value = "4" Then
Rows("1616:1619").Hidden = False
Rows("1620:1628").Hidden = True
End If
If Range("AU1616").Value = "5" Then
Rows("1616:1620").Hidden = False
Rows("1621:1628").Hidden = True
End If
If Range("AU1616").Value = "6" Then
Rows("1616:1621").Hidden = False
Rows("1622: 1628").Hidden = True
End If
If Range("AU1616").Value = "7" Then
Rows("1616:1622").Hidden = False
Rows("1623:1628").Hidden = True
End If
If Range("AU1616").Value = "8" Then
Rows("1616:1623").Hidden = False
Rows("1624:1628").Hidden = True
End If
If Range("AU1616").Value = "9" Then
Rows("1616:1624").Hidden = False
Rows("1625:1628").Hidden = True
End If
If Range("AU1616").Value = "10" Then
Rows("1616:1625").Hidden = False
Rows("1626:1628").Hidden = True
End If
If Range("AU1616").Value = "11" Then
Rows("1616:1626").Hidden = False
Rows("1627: 1628").Hidden = True
End If
If Range("AU1616").Value = "12" Then
Rows("1616:1628").Hidden = False
End If
If Range("AU1635").Value = "2" Then
Rows("1635:1637").Hidden = False
Rows("1638:1647").Hidden = True
End If
If Range("AU1635").Value = "3" Then
Rows("1635:1638").Hidden = False
Rows("1639:1647").Hidden = True
End If
If Range("AU1635").Value = "4" Then
Rows("1635:1639").Hidden = False
Rows("1640:1647").Hidden = True
End If
If Range("AU1635").Value = "5" Then
Rows("1635:1640").Hidden = False
Rows("1641:1647").Hidden = True
End If
If Range("AU1635").Value = "6" Then
Rows("1635:1641").Hidden = False
Rows("1642:1647").Hidden = True
End If
If Range("AU1635").Value = "7" Then
Rows("1635:1642").Hidden = False
Rows("1643:1647").Hidden = True
End If
If Range("AU1635").Value = "8" Then
Rows("1635:1643").Hidden = False
Rows("1644:1647").Hidden = True
End If
If Range("AU1635").Value = "9" Then
Rows("1635:1644").Hidden = False
Rows("1645:1647").Hidden = True
End If
If Range("AU1635").Value = "10" Then
Rows("1635:1645").Hidden = False
Rows("1646: 1647").Hidden = True
End If
If Range("AU1635").Value = "11" Then
Rows("1635:1646").Hidden = False
Rows("1647:1647").Hidden = True
End If
If Range("AU1635").Value = "12" Then
Rows("1635:1647").Hidden = False
End If
End Sub
Sub ExecuteBlock5()
If Range("AU1653").Value = "2" Then
Rows("1653:1654").Hidden = False
Rows("1655:1664").Hidden = True
End If
If Range("AU1653").Value = "3" Then
Rows("1653:1655").Hidden = False
Rows("1656:1664").Hidden = True
End If
If Range("AU1653").Value = "4" Then
Rows("1653:1656").Hidden = False
Rows("1657:1664").Hidden = True
End If
If Range("AU1653").Value = "5" Then
Rows("1653:1657").Hidden = False
Rows("1658:1664").Hidden = True
End If
If Range("AU1653").Value = "6" Then
Rows("1653:1658").Hidden = False
Rows("1659:1664").Hidden = True
End If
If Range("AU1653").Value = "7" Then
Rows("1653:1659").Hidden = False
Rows("1660:1664").Hidden = True
End If
If Range("AU1653").Value = "8" Then
Rows("1653:1660").Hidden = False
Rows("1661:1664").Hidden = True
End If
If Range("AU1653").Value = "9" Then
Rows("1653:1661").Hidden = False
Rows("1662:1664").Hidden = True
End If
If Range("AU1653").Value = "10" Then
Rows("1653:1662").Hidden = False
Rows("1663:1664").Hidden = True
End If
If Range("AU1653").Value = "11" Then
Rows("1653:1663").Hidden = False
Rows("1664:1664").Hidden = True
End If
If Range("AU1653").Value = "12" Then
Rows("1653:1664").Hidden = False
End If
If Range("AU1685").Value = "P1,P2" Then
Rows("1685:1711").Hidden = False
Rows("1713:1852").Hidden = True
End If
If Range("AU1685").Value = "P3,P4" Then
Rows("1687:1740").Hidden = False
Rows("1741:1852").Hidden = True
End If
If Range("AU1685").Value = "P5,P6" Then
Rows("1687:1768").Hidden = False
Rows("1769:1852").Hidden = True
End If
If Range("AU1685").Value = "P7,P8" Then
Rows("1687:1796").Hidden = False
Rows("1797:1852").Hidden = True
End If
If Range("AU1685").Value = "P9,P10" Then
Rows("1687:1824").Hidden = False
Rows("1825: 1852").Hidden = True
End If
If Range("AU1685").Value = "P11,P12" Then
Rows("1687:1852").Hidden = False
End If
If Range("AU1975").Value = "2" Then
Rows("1975:1976").Hidden = False
Rows("1977:1996").Hidden = True
End If
If Range("AU1975").Value = "3" Then
Rows("1975:1977").Hidden = False
Rows("1978:1996").Hidden = True
End If
If Range("AU1975").Value = "4" Then
Rows("1975:1978").Hidden = False
Rows("1979:1996").Hidden = True
End If
If Range("AU1975").Value = "5" Then
Rows("1975:1979").Hidden = False
Rows("1980:1996").Hidden = True
End If
If Range("AU1975").Value = "6" Then
Rows("1975:1980").Hidden = False
Rows("1981:1996").Hidden = True
End If
If Range("AU1975").Value = "7" Then
Rows("1975:1981").Hidden = False
Rows("1982:1996").Hidden = True
End If
If Range("AU1975").Value = "8" Then
Rows("1975:1982").Hidden = False
Rows("1983:1996").Hidden = True
End If
If Range("AU1975").Value = "9" Then
Rows("1975:1983").Hidden = False
Rows("1984:1996").Hidden = True
End If
If Range("AU1975").Value = "10" Then
Rows("1975:1984").Hidden = False
Rows("1985:1996").Hidden = True
End If
If Range("AU1975").Value = "11" Then
Rows("1975:1985").Hidden = False
Rows("1986:1996").Hidden = True
End If
If Range("AU1975").Value = "12" Then
Rows("1975:1986").Hidden = False
Rows("1987:1996").Hidden = True
End If
If Range("AU1975").Value = "13" Then
Rows("1975:1987").Hidden = False
Rows("1988:1996").Hidden = True
End If
If Range("AU1975").Value = "14" Then
Rows("1975:1988").Hidden = False
Rows("1989:1996").Hidden = True
End If
If Range("AU1975").Value = "15" Then
Rows("1975:1989").Hidden = False
Rows("1990:1996").Hidden = True
End If
If Range("AU1975").Value = "16" Then
Rows("1975:1990").Hidden = False
Rows("1991:1996").Hidden = True
End If
If Range("AU1975").Value = "17" Then
Rows("1975:1991").Hidden = False
Rows("1992: 1996").Hidden = True
End If
If Range("AU1975").Value = "18" Then
Rows("1975:1992").Hidden = False
Rows("1993:1996").Hidden = True
End If
If Range("AU1975").Value = "19" Then
Rows("1975:1993").Hidden = False
Rows("1994: 1996").Hidden = True
End If
If Range("AU1975").Value = "20" Then
Rows("1975:1994").Hidden = False
Rows("1995:1996").Hidden = True
End If
If Range("AU1975").Value = "21" Then
Rows("1975:1995").Hidden = False
Rows("1996:1996").Hidden = True
End If
If Range("AU1975").Value = "22" Then
Rows("1975:1996").Hidden = False
End If
If Range("AU2151").Value = "1" Then
Rows("2152:2155").Hidden = False
Rows("2156:2216").Hidden = True
End If
If Range("AU2151").Value = "2" Then
Rows("2152:2160").Hidden = False
Rows("2161:2216").Hidden = True
End If
If Range("AU2151").Value = "3" Then
Rows("2152:2165").Hidden = False
Rows("2166:2216").Hidden = True
End If
If Range("AU2151").Value = "4" Then
Rows("2152:2170").Hidden = False
Rows("2171:2216").Hidden = True
End If
If Range("AU2151").Value = "5" Then
Rows("2152:2175").Hidden = False
Rows("2176:2216").Hidden = True
End If
If Range("AU2151").Value = "6" Then
Rows("2152:2180").Hidden = False
Rows("2181:2216").Hidden = True
End If
If Range("AU2151").Value = "7" Then
Rows("2152:2185").Hidden = False
Rows("2186:2216").Hidden = True
End If
If Range("AU2151").Value = "8" Then
Rows("2152:2190").Hidden = False
Rows("2191:2216").Hidden = True
End If
If Range("AU2151").Value = "9" Then
Rows("2152:2195").Hidden = False
Rows("2196:2216").Hidden = True
End If
If Range("AU2151").Value = "10" Then
Rows("2152:2200").Hidden = False
Rows("2201:2216").Hidden = True
End If
If Range("AU2151").Value = "11" Then
Rows("2152:2205").Hidden = False
Rows("2206:2216").Hidden = True
End If
If Range("AU2151").Value = "12" Then
Rows("2152:2210").Hidden = False
Rows("2211: 2216").Hidden = True
End If
If Range("AU2151").Value = "13" Then
Rows("2152:2216").Hidden = False
End If
If Range("AU2220").Value = "1" Then
Rows("2217:2222").Hidden = False
Rows("2223:2273").Hidden = True
End If
If Range("AU2220").Value = "2" Then
Rows("2217:2227").Hidden = False
Rows("2228:2273").Hidden = True
End If
If Range("AU2220").Value = "3" Then
Rows("2217:2232").Hidden = False
Rows("2233:2273").Hidden = True
End If
If Range("AU2220").Value = "4" Then
Rows("2217:2237").Hidden = False
Rows("2238:2273").Hidden = True
End If
If Range("AU2220").Value = "5" Then
Rows("2217:2242").Hidden = False
Rows("2243:2273").Hidden = True
End If
If Range("AU2220").Value = "6" Then
Rows("2217:2247").Hidden = False
Rows("2248:2273").Hidden = True
End If
If Range("AU2220").Value = "7" Then
Rows("2217:2252").Hidden = False
Rows("2253:2273").Hidden = True
End If
If Range("AU2220").Value = "8" Then
Rows("2217:2257").Hidden = False
Rows("2258:2273").Hidden = True
End If
If Range("AU2220").Value = "9" Then
Rows("2217:2262").Hidden = False
Rows("2263:2273").Hidden = True
End If
If Range("AU2220").Value = "10" Then
Rows("2217:2267").Hidden = False
Rows("2268:2273").Hidden = True
End If
If Range("AU2220").Value = "11" Then
Rows("2217:2273").Hidden = False
End If
If Range("AU2408").Value = "1" Then
Rows("2410:2414").Hidden = False
Rows("2415:2459").Hidden = True
End If
If Range("AU2408").Value = "2" Then
Rows("2410:2419").Hidden = False
Rows("2420:2459").Hidden = True
End If
If Range("AU2408").Value = "3" Then
Rows("2410:2424").Hidden = False
Rows("2425:2459").Hidden = True
End If
If Range("AU2408").Value = "4" Then
Rows("2410:2429").Hidden = False
Rows("2430:2459").Hidden = True
End If
If Range("AU2408").Value = "5" Then
Rows("2410:2434").Hidden = False
Rows("2435:2459").Hidden = True
End If
If Range("AU2408").Value = "6" Then
Rows("2410:2439").Hidden = False
Rows("2440:2459").Hidden = True
End If
If Range("AU2408").Value = "7" Then
Rows("2410:2444").Hidden = False
Rows("2445:2459").Hidden = True
End If
If Range("AU2408").Value = "8" Then
Rows("2410:2449").Hidden = False
Rows("2450:2459").Hidden = True
End If
If Range("AU2408").Value = "9" Then
Rows("2410:2454").Hidden = False
Rows("2455:2459").Hidden = True
End If
If Range("AU2408").Value = "10" Then
Rows("2410:2459").Hidden = False
End If
If Range("AU2471").Value = "1" Then
Rows("2472:2476").Hidden = False
Rows("2477:2516").Hidden = True
End If
If Range("AU2471").Value = "2" Then
Rows("2472:2481").Hidden = False
Rows("2482:2516").Hidden = True
End If
If Range("AU2471").Value = "3" Then
Rows("2472:2486").Hidden = False
Rows("2487:2516").Hidden = True
End If
If Range("AU2471").Value = "4" Then
Rows("2472:2491").Hidden = False
Rows("2492:2516").Hidden = True
End If
If Range("AU2471").Value = "5" Then
Rows("2472:2496").Hidden = False
Rows("2497:2516").Hidden = True
End If
If Range("AU2471").Value = "6" Then
Rows("2472:2501").Hidden = False
Rows("2502:2516").Hidden = True
End If
If Range("AU2471").Value = "7" Then
Rows("2472:2506").Hidden = False
Rows("2507:2516").Hidden = True
End If
If Range("AU2471").Value = "8" Then
Rows("2472:2511").Hidden = False
Rows("2512:2516").Hidden = True
End If
If Range("AU2471").Value = "9" Then
Rows("2472:2516").Hidden = False
End If
If Range("AU2720").Value = "2" Then
Rows("2721:2722").Hidden = False
Rows("2723:2753").Hidden = True
End If
If Range("AU2720").Value = "3" Then
Rows("2723:2723").Hidden = False
Rows("2724:2753").Hidden = True
End If
If Range("AU2720").Value = "4" Then
Rows("2723:2724").Hidden = False
Rows("2725:2753").Hidden = True
End If
If Range("AU2720").Value = "5" Then
Rows("2723:2725").Hidden = False
Rows("2726:2753").Hidden = True
End If
If Range("AU2720").Value = "6" Then
Rows("2723:2726").Hidden = False
Rows("2727:2753").Hidden = True
End If
If Range("AU2720").Value = "7" Then
Rows("2723:2727").Hidden = False
Rows("2728:2753").Hidden = True
End If
If Range("AU2720").Value = "8" Then
Rows("2723:2728").Hidden = False
Rows("2729:2753").Hidden = True
End If
If Range("AU2720").Value = "9" Then
Rows("2723:2729").Hidden = False
Rows("2730:2753").Hidden = True
End If
If Range("AU2720").Value = "10" Then
Rows("2723:2730").Hidden = False
Rows("2731:2753").Hidden = True
End If
If Range("AU2720").Value = "11" Then
Rows("2723:2731").Hidden = False
Rows("2732:2753").Hidden = True
End If
If Range("AU2720").Value = "12" Then
Rows("2723:2732").Hidden = False
Rows("2733:2753").Hidden = True
End If
If Range("AU2720").Value = "13" Then
Rows("2723:2733").Hidden = False
Rows("2734:2753").Hidden = True
End If
If Range("AU2720").Value = "14" Then
Rows("2723:2734").Hidden = False
Rows("2735:2753").Hidden = True
End If
If Range("AU2720").Value = "15" Then
Rows("2723:2735").Hidden = False
Rows("2736:2753").Hidden = True
End If
If Range("AU2720").Value = "16" Then
Rows("2723:2736").Hidden = False
Rows("2737:2753").Hidden = True
End If
If Range("AU2720").Value = "17" Then
Rows("2723:2737").Hidden = False
Rows("2738:2753").Hidden = True
End If
If Range("AU2720").Value = "18" Then
Rows("2723:2738").Hidden = False
Rows("2739:2753").Hidden = True
End If
If Range("AU2720").Value = "19" Then
Rows("2723:2739").Hidden = False
Rows("2740:2753").Hidden = True
End If
If Range("AU2720").Value = "20" Then
Rows("2723:2740").Hidden = False
Rows("2741:2753").Hidden = True
End If
If Range("AU2720").Value = "21" Then
Rows("2723:2741").Hidden = False
Rows("2742:2753").Hidden = True
End If
If Range("AU2720").Value = "22" Then
Rows("2723:2742").Hidden = False
Rows("2743:2753").Hidden = True
End If
If Range("AU2720").Value = "23" Then
Rows("2723:2743").Hidden = False
Rows("2744:2753").Hidden = True
End If
If Range("AU2720").Value = "24" Then
Rows("2723:2744").Hidden = False
Rows("2745:2753").Hidden = True
End If
If Range("AU2720").Value = "25" Then
Rows("2723:2745").Hidden = False
Rows("2746:2753").Hidden = True
End If
If Range("AU2720").Value = "26" Then
Rows("2723:2746").Hidden = False
Rows("2747:2753").Hidden = True
End If
If Range("AU2720").Value = "27" Then
Rows("2723:2747").Hidden = False
Rows("2748:2753").Hidden = True
End If
If Range("AU2720").Value = "28" Then
Rows("2723:2748").Hidden = False
Rows("2749:2753").Hidden = True
End If
If Range("AU2720").Value = "29" Then
Rows("2723:2749").Hidden = False
Rows("2750:2753").Hidden = True
End If
If Range("AU2720").Value = "30" Then
Rows("2723:2750").Hidden = False
Rows("2751:2753").Hidden = True
End If
If Range("AU2720").Value = "31" Then
Rows("2723:2751").Hidden = False
Rows("2752:2753").Hidden = True
End If
If Range("AU2720").Value = "32" Then
Rows("2723:2752").Hidden = False
Rows("2753:2753").Hidden = True
End If
If Range("AU2720").Value = "33" Then
Rows("2723:2753").Hidden = False
End If
If Range("AU2758").Value = "2" Then
Rows("2758:2759").Hidden = False
Rows("2760:2786").Hidden = True
End If
If Range("AU2758").Value = "3" Then
Rows("2758:2760").Hidden = False
Rows("2761:2786").Hidden = True
End If
If Range("AU2758").Value = "4" Then
Rows("2758:2761").Hidden = False
Rows("2762:2786").Hidden = True
End If
If Range("AU2758").Value = "5" Then
Rows("2758:2762").Hidden = False
Rows("2763:2786").Hidden = True
End If
If Range("AU2758").Value = "6" Then
Rows("2758:2763").Hidden = False
Rows("2764:2786").Hidden = True
End If
If Range("AU2758").Value = "7" Then
Rows("2758:2764").Hidden = False
Rows("2765:2786").Hidden = True
End If
If Range("AU2758").Value = "8" Then
Rows("2758:2765").Hidden = False
Rows("2766:2786").Hidden = True
End If
If Range("AU2758").Value = "9" Then
Rows("2758:2766").Hidden = False
Rows("2767:2786").Hidden = True
End If
If Range("AU2758").Value = "10" Then
Rows("2758:2767").Hidden = False
Rows("2768:2786").Hidden = True
End If
If Range("AU2758").Value = "11" Then
Rows("2758:2768").Hidden = False
Rows("2769:2786").Hidden = True
End If
If Range("AU2758").Value = "12" Then
Rows("2758:2769").Hidden = False
Rows("2770:2786").Hidden = True
End If
If Range("AU2758").Value = "13" Then
Rows("2758:2770").Hidden = False
Rows("2771:2786").Hidden = True
End If
If Range("AU2758").Value = "14" Then
Rows("2758:2771").Hidden = False
Rows("2772:2786").Hidden = True
End If
If Range("AU2758").Value = "15" Then
Rows("2758:2772").Hidden = False
Rows("2773:2786").Hidden = True
End If
If Range("AU2758").Value = "16" Then
Rows("2758:2773").Hidden = False
Rows("2774:2786").Hidden = True
End If
If Range("AU2758").Value = "17" Then
Rows("2758:2774").Hidden = False
Rows("2775:2786").Hidden = True
End If
If Range("AU2758").Value = "18" Then
Rows("2758:2775").Hidden = False
Rows("2776:2786").Hidden = True
End If
If Range("AU2758").Value = "19" Then
Rows("2758:2776").Hidden = False
Rows("2777:2786").Hidden = True
End If
If Range("AU2758").Value = "20" Then
Rows("2758:2777").Hidden = False
Rows("2778:2786").Hidden = True
End If
If Range("AU2758").Value = "21" Then
Rows("2758:2778").Hidden = False
Rows("2779:2786").Hidden = True
End If
If Range("AU2758").Value = "22" Then
Rows("2758:2779").Hidden = False
Rows("2780:2786").Hidden = True
End If
If Range("AU2758").Value = "23" Then
Rows("2758:2780").Hidden = False
Rows("2781:2786").Hidden = True
End If
If Range("AU2758").Value = "24" Then
Rows("2758:2781").Hidden = False
Rows("2782 2786").Hidden = True
End If
If Range("AU2758").Value = "25" Then
Rows("2758:2782").Hidden = False
Rows("2783:2786").Hidden = True
End If
If Range("AU2758").Value = "26" Then
Rows("2758:2783").Hidden = False
Rows("2784:2786").Hidden = True
End If
If Range("AU2758").Value = "27" Then
Rows("2758:2784").Hidden = False
Rows("2785:2786").Hidden = True
End If
If Range("AU2758").Value = "28" Then
Rows("2758:2786").Hidden = False
End If
If Range("AV2791").Value = "1" Then
Rows("2791:2791").Hidden = False
Rows("2792:2793").Hidden = True
End If
If Range("AV2791").Value = "2" Then
Rows("2791:2792").Hidden = False
Rows("2793:2793").Hidden = True
End If
If Range("AV2791").Value = "3" Then
Rows("2791:2793").Hidden = False
End If
If Range("AV2794").Value = "1" Then
Rows("2794:2794").Hidden = False
Rows("2795:2796").Hidden = True
End If
If Range("AV2794").Value = "2" Then
Rows("2794:2795").Hidden = False
Rows("2796:2796").Hidden = True
End If
If Range("AV2794").Value = "3" Then
Rows("2794:2796").Hidden = False
End If
If Range("AV2797").Value = "1" Then
Rows("2797:2797").Hidden = False
Rows("2798:2799").Hidden = True
End If
If Range("AV2797").Value = "2" Then
Rows("2797:2798").Hidden = False
Rows("2799:2799").Hidden = True
End If
If Range("AV2797").Value = "3" Then
Rows("2797:2799").Hidden = False
End If
If Range("AV2800").Value = "1" Then
Rows("2800:2800").Hidden = False
Rows("2801:2802").Hidden = True
End If
If Range("AV2800").Value = "2" Then
Rows("2800:2801").Hidden = False
Rows("2802:2802").Hidden = True
End If
If Range("AV2800").Value = "3" Then
Rows("2800:2802").Hidden = False
End If
If Range("AV2807").Value = "1" Then
Rows("2807:2807").Hidden = False
Rows("2808:2809").Hidden = True
End If
If Range("AV2807").Value = "2" Then
Rows("2807:2808").Hidden = False
Rows("2809:2809").Hidden = True
End If
If Range("AV2807").Value = "3" Then
Rows("2807:2809").Hidden = False
End If
End Sub
Last edited by a moderator:
