Procedure loo lagre

Status
Not open for further replies.

tkalburgi

New Member
Joined
Jun 14, 2013
Messages
3
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:

Some videos you may like

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.

mumps

Well-known Member
Joined
Apr 11, 2012
Messages
10,239
Something like this. Change the sheet name to suit your needs. Replace "password" with your actual password. If you don't have a password, then delete password:="password".
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sheet1").Unprotect Password:="password"
    'Your code here
    Sheets("Sheet1").Protect Password:="password"
End Sub
 

Smitty

Legend
Joined
May 15, 2003
Messages
29,536
Welcome to the Board!

Please continue in your original thread. That way everyone can see how you got to this point.
 
Status
Not open for further replies.

Watch MrExcel Video

Forum statistics

Threads
1,128,092
Messages
5,628,623
Members
416,329
Latest member
phxdan79

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
Top