Procedue too large

tkalburgi

New Member
Joined
Jun 14, 2013
Messages
3
I have two micro. Micro 1 is working correctly. Micro 2 shows 'Procedure too large'
Micro 1 and 2 are as under: Please help to how to over come micro 2 into mini micros Explain in detail with code
Micro 1 as under:

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

Micro 2 is as under : show as procedure too large

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("AK18").Value = "Premises 1" Then
Rows("19:26").Hidden = False
Rows("27:35").Hidden = True
End If
If Range("AK18").Value = "Premises 2" Then
Rows("19:35").Hidden = False
End If
If Range("AQ44").Value = "2" Then
Rows("60:61").Hidden = False
Rows("62:79").Hidden = True
End If
If Range("AQ44").Value = "3" Then
Rows("60:62").Hidden = False
Rows("63:79").Hidden = True
End If
If Range("AQ44").Value = "4" Then
Rows("60:63").Hidden = False
Rows("64:79").Hidden = True
End If
If Range("AQ44").Value = "5" Then
Rows("60:64").Hidden = False
Rows("65:79").Hidden = True
End If
If Range("AQ44").Value = "6" Then
Rows("60:65").Hidden = False
Rows("66:79").Hidden = True
End If
If Range("AQ44").Value = "7" Then
Rows("60:66").Hidden = False
Rows("67:79").Hidden = True
End If
If Range("AQ44").Value = "8" Then
Rows("60:67").Hidden = False
Rows("68:79").Hidden = True
End If
If Range("AQ44").Value = "9" Then
Rows("60:68").Hidden = False
Rows("69:79").Hidden = True
End If
If Range("AQ44").Value = "10" Then
Rows("60:69").Hidden = False
Rows("70:79").Hidden = True
End If
If Range("AQ44").Value = "11" Then
Rows("60:70").Hidden = False
Rows("71:79").Hidden = True
End If
If Range("AQ44").Value = "12" Then
Rows("60:71").Hidden = False
Rows("72:79").Hidden = True
End If
If Range("AQ44").Value = "13" Then
Rows("60:72").Hidden = False
Rows("73:79").Hidden = True
End If
If Range("AQ44").Value = "14" Then
Rows("60:73").Hidden = False
Rows("74:79").Hidden = True
End If
If Range("AQ44").Value = "15" Then
Rows("60:74").Hidden = False
Rows("75:79").Hidden = True
End If
If Range("AQ44").Value = "16" Then
Rows("60:75").Hidden = False
Rows("76:79").Hidden = True
End If
If Range("AQ44").Value = "17" Then
Rows("60:76").Hidden = False
Rows("77:79").Hidden = True
End If
If Range("AQ44").Value = "18" Then
Rows("60:77").Hidden = False
Rows("78:79").Hidden = True
End If
If Range("AQ44").Value = "19" Then
Rows("60:78").Hidden = False
Rows("79:79").Hidden = True
End If
If Range("AQ44").Value = "20" Then
Rows("60:79").Hidden = False
End If
If Range("AQ44").Value = "2" Then
Rows("294:295").Hidden = False
Rows("296:313").Hidden = True
End If
If Range("AQ44").Value = "3" Then
Rows("294:296").Hidden = False
Rows("297:313").Hidden = True
End If
If Range("AQ44").Value = "4" Then
Rows("294:297").Hidden = False
Rows("298:313").Hidden = True
End If
If Range("AQ44").Value = "5" Then
Rows("294:298").Hidden = False
Rows("299:313").Hidden = True
End If
If Range("AQ44").Value = "6" Then
Rows("294:299").Hidden = False
Rows("300:313").Hidden = True
End If
If Range("AQ44").Value = "7" Then
Rows("294:300").Hidden = False
Rows("301:313").Hidden = True
End If
If Range("AQ44").Value = "8" Then
Rows("294:301").Hidden = False
Rows("302:313").Hidden = True
End If
If Range("AQ44").Value = "9" Then
Rows("294:302").Hidden = False
Rows("303:313").Hidden = True
End If
If Range("AQ44").Value = "10" Then
Rows("294:303").Hidden = False
Rows("304:313").Hidden = True
End If
If Range("AQ44").Value = "11" Then
Rows("294:304").Hidden = False
Rows("305:323").Hidden = True
End If
If Range("AQ44").Value = "12" Then
Rows("294:305").Hidden = False
Rows("306:313").Hidden = True
End If
If Range("AQ44").Value = "13" Then
Rows("294:306").Hidden = False
Rows("307:313").Hidden = True
End If
If Range("AQ44").Value = "14" Then
Rows("294:307").Hidden = False
Rows("308:313").Hidden = True
End If
If Range("AQ44").Value = "15" Then
Rows("294:308").Hidden = False
Rows("309:313").Hidden = True
End If
If Range("AQ44").Value = "16" Then
Rows("294:309").Hidden = False
Rows("310:313").Hidden = True
End If
If Range("AQ44").Value = "17" Then
Rows("294:310").Hidden = False
Rows("311:313").Hidden = True
End If
If Range("AQ44").Value = "18" Then
Rows("294:311").Hidden = False
Rows("312:313").Hidden = True
End If
If Range("AQ44").Value = "19" Then
Rows("294:312").Hidden = False
Rows("313:313").Hidden = True
End If
If Range("AQ44").Value = "20" Then
Rows("294:313").Hidden = False
End If
If Range("AQ44").Value = "2" Then
Rows("476:505").Hidden = False
Rows("506:794").Hidden = True
End If
If Range("AQ44").Value = "3" Then
Rows("476:521").Hidden = False
Rows("522:794").Hidden = True
End If
If Range("AQ44").Value = "4" Then
Rows("476:537").Hidden = False
Rows("538:794").Hidden = True
End If
If Range("AQ44").Value = "5" Then
Rows("476:553").Hidden = False
Rows("554:794").Hidden = True
End If
If Range("AQ44").Value = "6" Then
Rows("476:569").Hidden = False
Rows("570:794").Hidden = True
End If
If Range("AQ44").Value = "7" Then
Rows("476:585").Hidden = False
Rows("586:794").Hidden = True
End If
If Range("AQ44").Value = "8" Then
Rows("476:601").Hidden = False
Rows("602:794").Hidden = True
End If
If Range("AQ44").Value = "9" Then
Rows("476:617").Hidden = False
Rows("618:794").Hidden = True
End If
If Range("AQ44").Value = "10" Then
Rows("476:633").Hidden = False
Rows("634:794").Hidden = True
End If
If Range("AQ44").Value = "11" Then
Rows("476:649").Hidden = False
Rows("650:794").Hidden = True
End If
If Range("AQ44").Value = "12" Then
Rows("476:655").Hidden = False
Rows("656:794").Hidden = True
End If
If Range("AQ44").Value = "13" Then
Rows("476:681").Hidden = False
Rows("682:794").Hidden = True
End If
If Range("AQ44").Value = "14" Then
Rows("476:697").Hidden = False
Rows("698:794").Hidden = True
End If
If Range("AQ44").Value = "15" Then
Rows("476:713").Hidden = False
Rows("714:794").Hidden = True
End If
If Range("AQ44").Value = "16" Then
Rows("476:729").Hidden = False
Rows("730:794").Hidden = True
End If
If Range("AQ44").Value = "17" Then
Rows("476:745").Hidden = False
Rows("746:794").Hidden = True
End If
If Range("AQ44").Value = "18" Then
Rows("476:761").Hidden = False
Rows("762:794").Hidden = True
End If
If Range("AQ44").Value = "19" Then
Rows("476:778").Hidden = False
Rows("779:794").Hidden = True
End If
If Range("AQ44").Value = "20" Then
Rows("476:794").Hidden = False
End If
If Range("AQ44").Value = "2" Then
Rows("799:800").Hidden = False
Rows("801:818").Hidden = True
End If
If Range("AQ44").Value = "3" Then
Rows("799:801").Hidden = False
Rows("802:818").Hidden = True
End If
If Range("AQ44").Value = "4" Then
Rows("799:802").Hidden = False
Rows("803:818").Hidden = True
End If
If Range("AQ44").Value = "5" Then
Rows("799:803").Hidden = False
Rows("804:818").Hidden = True
End If
If Range("AQ44").Value = "6" Then
Rows("799:804").Hidden = False
Rows("805:818").Hidden = True
End If
If Range("AQ44").Value = "7" Then
Rows("799:805").Hidden = False
Rows("806:818").Hidden = True
End If
If Range("AQ44").Value = "8" Then
Rows("799:806").Hidden = False
Rows("807:818").Hidden = True
End If
If Range("AQ44").Value = "9" Then
Rows("799:807").Hidden = False
Rows("808:818").Hidden = True
End If
If Range("AQ44").Value = "10" Then
Rows("799:808").Hidden = False
Rows("809:818").Hidden = True
End If
If Range("AQ44").Value = "11" Then
Rows("799:809").Hidden = False
Rows("810:818").Hidden = True
End If
If Range("AQ44").Value = "12" Then
Rows("799:810").Hidden = False
Rows("811:818").Hidden = True
End If
If Range("AQ44").Value = "13" Then
Rows("799:811").Hidden = False
Rows("812:818").Hidden = True
End If
If Range("AQ44").Value = "14" Then
Rows("799:812").Hidden = False
Rows("813:818").Hidden = True
End If
If Range("AQ44").Value = "15" Then
Rows("799:813").Hidden = False
Rows("814:818").Hidden = True
End If
If Range("AQ44").Value = "16" Then
Rows("799:814").Hidden = False
Rows("815:818").Hidden = True
End If
If Range("AQ44").Value = "17" Then
Rows("799:815").Hidden = False
Rows("816:818").Hidden = True
End If
If Range("AQ44").Value = "18" Then
Rows("799:816").Hidden = False
Rows("817:818").Hidden = True
End If
If Range("AQ44").Value = "19" Then
Rows("799:817").Hidden = False
Rows("818:818").Hidden = True
End If
If Range("AQ44").Value = "20" Then
Rows("799:818").Hidden = False
End If
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("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
If Range("AU892").Value = "Yes" Then
Rows("908:924").Hidden = False
Else
Rows("908:924").Hidden = True
End If
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

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
If Range("AU1653").Value = "2" Then
Rows("1653:1654").Hidden = False
Rows("1655:1665").Hidden = True
End If
If Range("AU1653").Value = "3" Then
Rows("1653:1655").Hidden = False
Rows("1656:1665").Hidden = True
End If
If Range("AU1653").Value = "4" Then
Rows("1653:1656").Hidden = False
Rows("1657:1665").Hidden = True
End If
If Range("AU1653").Value = "5" Then
Rows("1653:1657").Hidden = False
Rows("1658:1665").Hidden = True
End If
If Range("AU1653").Value = "6" Then
Rows("1653:1658").Hidden = False
Rows("1659:1665").Hidden = True
End If
If Range("AU1653").Value = "7" Then
Rows("1653:1659").Hidden = False
Rows("1660:1665").Hidden = True
End If
If Range("AU1653").Value = "8" Then
Rows("1653:1660").Hidden = False
Rows("1661:1665").Hidden = True
End If
If Range("AU1653").Value = "9" Then
Rows("1653:1661").Hidden = False
Rows("1662:1665").Hidden = True
End If
If Range("AU1653").Value = "10" Then
Rows("1653:1662").Hidden = False
Rows("1663:1665").Hidden = True
End If
If Range("AU1653").Value = "11" Then
Rows("1653:1663").Hidden = False
Rows("1664:1665").Hidden = True
End If
If Range("AU1653").Value = "12" Then
Rows("1653:1665").Hidden = False
End If
If Range("AU1686").Value = "P3,P4" Then
Rows("1687:1740").Hidden = False
Rows("1741:1852").Hidden = True
End If
If Range("AU1686").Value = "P5,P6" Then
Rows("1687:1768").Hidden = False
Rows("1769:1852").Hidden = True
End If
If Range("AU1686").Value = "P7,P8" Then
Rows("1687:1796").Hidden = False
Rows("1797:1852").Hidden = True
End If
If Range("AU1686").Value = "P9,P10" Then
Rows("1687:1824").Hidden = False
Rows("1825: 1852").Hidden = True
End If
If Range("AU1686").Value = "P11,P12" Then
Rows("1687:1852").Hidden = False
End If
If Range("AU1976").Value = "2" Then
Rows("1976:1977").Hidden = False
Rows("1978:1997").Hidden = True
End If
If Range("AU1976").Value = "3" Then
Rows("1976:1978").Hidden = False
Rows("1979:1997").Hidden = True
End If
If Range("AU1976").Value = "4" Then
Rows("1976:1979").Hidden = False
Rows("1980:1997").Hidden = True
End If
If Range("AU1976").Value = "5" Then
Rows("1976:1980").Hidden = False
Rows("1981:1997").Hidden = True
End If
If Range("AU1976").Value = "6" Then
Rows("1976:1981").Hidden = False
Rows("1982:1997").Hidden = True
End If
If Range("AU1976").Value = "7" Then
Rows("1976:1982").Hidden = False
Rows("1983:1997").Hidden = True
End If
If Range("AU1976").Value = "8" Then
Rows("1976:1983").Hidden = False
Rows("1984:1997").Hidden = True
End If
If Range("AU1976").Value = "9" Then
Rows("1976:1984").Hidden = False
Rows("1985: 1997").Hidden = True
End If
If Range("AU1976").Value = "10" Then
Rows("1976:1985").Hidden = False
Rows("1986:1997").Hidden = True
End If
If Range("AU1976").Value = "11" Then
Rows("1976:1986").Hidden = False
Rows("1987:1997").Hidden = True
End If
If Range("AU1976").Value = "12" Then
Rows("1976:1987").Hidden = False
Rows("1988:1997").Hidden = True
End If
If Range("AU1976").Value = "13" Then
Rows("1976:1988").Hidden = False
Rows("1989:1997").Hidden = True
End If
If Range("AU1976").Value = "14" Then
Rows("1976:1989").Hidden = False
Rows("1990:1997").Hidden = True
End If
If Range("AU1976").Value = "15" Then
Rows("1976:1990").Hidden = False
Rows("1991:1997").Hidden = True
End If
If Range("AU1976").Value = "16" Then
Rows("1976:1991").Hidden = False
Rows("1992:1997").Hidden = True
End If
If Range("AU1976").Value = "17" Then
Rows("1976:1992").Hidden = False
Rows("1993: 1997").Hidden = True
End If
If Range("AU1976").Value = "18" Then
Rows("1976:1993").Hidden = False
Rows("1994:1997").Hidden = True
End If
If Range("AU1976").Value = "19" Then
Rows("1976:1994").Hidden = False
Rows("1995: 1997").Hidden = True
End If
If Range("AU1976").Value = "20" Then
Rows("1976:1995").Hidden = False
Rows("1996:1997").Hidden = True
End If
If Range("AU1976").Value = "21" Then
Rows("1976:1996").Hidden = False
Rows("1997:1997").Hidden = True
End If
If Range("AU1976").Value = "22" Then
Rows("1976:1997").Hidden = False
End If
If Range("AU2152").Value = "2" Then
Rows("2152:2160").Hidden = False
Rows("2161:2216").Hidden = True
End If
If Range("AU2152").Value = "3" Then
Rows("2152:2165").Hidden = False
Rows("2166:2216").Hidden = True
End If
If Range("AU2152").Value = "4" Then
Rows("2152:2170").Hidden = False
Rows("2171:2216").Hidden = True
End If
If Range("AU2152").Value = "5" Then
Rows("2152:2175").Hidden = False
Rows("2176: 2216").Hidden = True
End If
If Range("AU2152").Value = "6" Then
Rows("2152:2180").Hidden = False
Rows("2181:2216").Hidden = True
End If
If Range("AU2152").Value = "7" Then
Rows("2152:2185").Hidden = False
Rows("2186: 2216").Hidden = True
End If
If Range("AU2152").Value = "8" Then
Rows("2152:2190").Hidden = False
Rows("2191:2216").Hidden = True
End If
If Range("AU2152").Value = "9" Then
Rows("2152:2195").Hidden = False
Rows("2196:2216").Hidden = True
End If
If Range("AU2152").Value = "10" Then
Rows("2152:2200").Hidden = False
Rows("2201:2216").Hidden = True
End If
If Range("AU2152").Value = "11" Then
Rows("2152:2205").Hidden = False
Rows("2206:2216").Hidden = True
End If
If Range("AU2152").Value = "12" Then
Rows("2152:2210").Hidden = False
Rows("2211: 2216").Hidden = True
End If
If Range("AU2152").Value = "13" Then
Rows("2152:2216").Hidden = False
End If
If Range("AU2221").Value = "2" Then
Rows("2219:2227").Hidden = False
Rows("2228:2273").Hidden = True
End If
If Range("AU2221").Value = "3" Then
Rows("2219:2232").Hidden = False
Rows("2233:2273").Hidden = True
End If
If Range("AU2221").Value = "4" Then
Rows("2219:2237").Hidden = False
Rows("2238:2273").Hidden = True
End If
If Range("AU2221").Value = "5" Then
Rows("2219:2242").Hidden = False
Rows("2243:2273").Hidden = True
End If
If Range("AU2221").Value = "6" Then
Rows("2219:2247").Hidden = False
Rows("2248:2273").Hidden = True
End If
If Range("AU2221").Value = "7" Then
Rows("2219:2252").Hidden = False
Rows("2253:2273").Hidden = True
End If
If Range("AU2221").Value = "8" Then
Rows("2219:2257").Hidden = False
Rows("2258:2273").Hidden = True
End If
If Range("AU2221").Value = "9" Then
Rows("2219:2262").Hidden = False
Rows("2263:2273").Hidden = True
End If
If Range("AU2221").Value = "10" Then
Rows("2219:2267").Hidden = False
Rows("2268:2273").Hidden = True
End If
If Range("AU2221").Value = "11" Then
Rows("2219:2273").Hidden = False
End If
If Range("AU2409").Value = "2" Then
Rows("2411:2420").Hidden = False
Rows("2421:2460").Hidden = True
End If
If Range("AU2409").Value = "3" Then
Rows("2411:2425").Hidden = False
Rows("2426:2460").Hidden = True
End If
If Range("AU2409").Value = "4" Then
Rows("2411:2430").Hidden = False
Rows("2431:2460").Hidden = True
End If
If Range("AU2409").Value = "5" Then
Rows("2411:2435").Hidden = False
Rows("2436:2460").Hidden = True
End If
If Range("AU2409").Value = "6" Then
Rows("2411:2440").Hidden = False
Rows("2441:2460").Hidden = True
End If
If Range("AU2409").Value = "7" Then
Rows("2411:2445").Hidden = False
Rows("2446:2460").Hidden = True
End If
If Range("AU2409").Value = "8" Then
Rows("2411:2450").Hidden = False
Rows("2451:2460").Hidden = True
End If
If Range("AU2409").Value = "9" Then
Rows("2411:2455").Hidden = False
Rows("2456:2460").Hidden = True
End If
If Range("AU2409").Value = "10" Then
Rows("2411:2460").Hidden = False
End If
If Range("AU2472").Value = "2" Then
Rows("2473:2482").Hidden = False
Rows("2483: 2517").Hidden = True
End If
If Range("AU2472").Value = "3" Then
Rows("2473:2487").Hidden = False
Rows("2488:2517").Hidden = True
End If
If Range("AU2472").Value = "4" Then
Rows("2473:2492").Hidden = False
Rows("2493:2517").Hidden = True
End If
If Range("AU2472").Value = "5" Then
Rows("2473:2498").Hidden = False
Rows("2499:2517").Hidden = True
End If
If Range("AU2472").Value = "6" Then
Rows("2473:2502").Hidden = False
Rows("2503:2517").Hidden = True
End If
If Range("AU2472").Value = "7" Then
Rows("2473:2507").Hidden = False
Rows("2508:2517").Hidden = True
End If
If Range("AU2472").Value = "8" Then
Rows("2473:2512").Hidden = False
Rows("2513:2517").Hidden = True
End If
If Range("AU2472").Value = "9" Then
Rows("2473:2517").Hidden = False
End If
If Range("AU2721").Value = "2" Then
Rows("2723:2723").Hidden = False
Rows("2724:2754").Hidden = True
End If
If Range("AU2721").Value = "3" Then
Rows("2723:2724").Hidden = False
Rows("2725:2754").Hidden = True
End If
If Range("AU2721").Value = "4" Then
Rows("2723:2725").Hidden = False
Rows("2726:2754").Hidden = True
End If
If Range("AU2721").Value = "5" Then
Rows("2723:2726").Hidden = False
Rows("2727:2754").Hidden = True
End If
If Range("AU2721").Value = "6" Then
Rows("2723:2727").Hidden = False
Rows("2728:2754").Hidden = True
End If
If Range("AU2721").Value = "7" Then
Rows("2723:2728").Hidden = False
Rows("2729:2754").Hidden = True
End If
If Range("AU2721").Value = "8" Then
Rows("2723:2729").Hidden = False
Rows("2730:2754").Hidden = True
End If
If Range("AU2721").Value = "9" Then
Rows("2723:2730").Hidden = False
Rows("2731:2754").Hidden = True
End If
If Range("AU2721").Value = "10" Then
Rows("2723:2731").Hidden = False
Rows("2732:2754").Hidden = True
End If
If Range("AU2721").Value = "11" Then
Rows("2723:2732").Hidden = False
Rows("2733:2754").Hidden = True
End If
If Range("AU2721").Value = "12" Then
Rows("2723:2733").Hidden = False
Rows("2734:2754").Hidden = True
End If
If Range("AU2721").Value = "13" Then
Rows("2723:2734").Hidden = False
Rows("2735:2754").Hidden = True
End If
If Range("AU2721").Value = "14" Then
Rows("2723:2735").Hidden = False
Rows("2736:2754").Hidden = True
End If
If Range("AU2721").Value = "15" Then
Rows("2723:2736").Hidden = False
Rows("2737:2754").Hidden = True
End If
If Range("AU2721").Value = "16" Then
Rows("2723:2737").Hidden = False
Rows("2738:2754").Hidden = True
End If
If Range("AU2721").Value = "17" Then
Rows("2723:2738").Hidden = False
Rows("2739:2754").Hidden = True
End If
If Range("AU2721").Value = "18" Then
Rows("2723:2739").Hidden = False
Rows("2740:2754").Hidden = True
End If
If Range("AU2721").Value = "19" Then
Rows("2723:2740").Hidden = False
Rows("2741:2754").Hidden = True
End If
If Range("AU2721").Value = "20" Then
Rows("2723:2741").Hidden = False
Rows("2742:2754").Hidden = True
End If
If Range("AU2721").Value = "21" Then
Rows("2723:2742").Hidden = False
Rows("2743:2754").Hidden = True
End If
If Range("AU2721").Value = "22" Then
Rows("2723:2743").Hidden = False
Rows("2744:2754").Hidden = True
End If
If Range("AU2721").Value = "23" Then
Rows("2723:2744").Hidden = False
Rows("2745:2754").Hidden = True
End If
If Range("AU2721").Value = "24" Then
Rows("2723:2745").Hidden = False
Rows("2746:2754").Hidden = True
End If
If Range("AU2721").Value = "25" Then
Rows("2723:2746").Hidden = False
Rows("2747:2754").Hidden = True
End If
If Range("AU2721").Value = "26" Then
Rows("2723:2747").Hidden = False
Rows("2748:2754").Hidden = True
End If
If Range("AU2721").Value = "27" Then
Rows("2723:2748").Hidden = False
Rows("2749:2754").Hidden = True
End If
If Range("AU2721").Value = "28" Then
Rows("2723:2749").Hidden = False
Rows("2750:2754").Hidden = True
End If
If Range("AU2721").Value = "29" Then
Rows("2723:2750").Hidden = False
Rows("2751:2754").Hidden = True
End If
If Range("AU2721").Value = "30" Then
Rows("2723:2751").Hidden = False
Rows("2752:2754").Hidden = True
End If
If Range("AU2721").Value = "31" Then
Rows("2723:2752").Hidden = False
Rows("2753:2754").Hidden = True
End If
If Range("AU2721").Value = "32" Then
Rows("2723:2753").Hidden = False
Rows("2754:2754").Hidden = True
End If
If Range("AU2721").Value = "33" Then
Rows("2723:2754").Hidden = False
End If
If Range("AU2759").Value = "2" Then
Rows("2759:2760").Hidden = False
Rows("2761:2786").Hidden = True
End If
If Range("AU2759").Value = "3" Then
Rows("2759:2761").Hidden = False
Rows("2762:2786").Hidden = True
End If
If Range("AU2759").Value = "4" Then
Rows("2759:2762").Hidden = False
Rows("2763:2786").Hidden = True
End If
If Range("AU2759").Value = "5" Then
Rows("2759:2763").Hidden = False
Rows("2764:2786").Hidden = True
End If
If Range("AU2759").Value = "6" Then
Rows("2759:2764").Hidden = False
Rows("2765:2786").Hidden = True
End If
If Range("AU2759").Value = "7" Then
Rows("2759:2765").Hidden = False
Rows("2766:2786").Hidden = True
End If
If Range("AU2759").Value = "8" Then
Rows("2759:2766").Hidden = False
Rows("2767:2786").Hidden = True
End If
If Range("AU2759").Value = "9" Then
Rows("2759:2767").Hidden = False
Rows("2768:2786").Hidden = True
End If
If Range("AU2759").Value = "10" Then
Rows("2759:2768").Hidden = False
Rows("2769:2786").Hidden = True
End If
If Range("AU2759").Value = "11" Then
Rows("2759:2769").Hidden = False
Rows("2770:2786").Hidden = True
End If
If Range("AU2759").Value = "12" Then
Rows("2759:2770").Hidden = False
Rows("2771:2786").Hidden = True
End If
If Range("AU2759").Value = "13" Then
Rows("2759:2771").Hidden = False
Rows("2772:2786").Hidden = True
End If
If Range("AU2759").Value = "14" Then
Rows("2759:2772").Hidden = False
Rows("2773:2786").Hidden = True
End If
If Range("AU2759").Value = "15" Then
Rows("2759:2773").Hidden = False
Rows("2774:2786").Hidden = True
End If
If Range("AU2759").Value = "16" Then
Rows("2759:2774").Hidden = False
Rows("2775:2786").Hidden = True
End If
If Range("AU2759").Value = "17" Then
Rows("2759:2775").Hidden = False
Rows("2776:2786").Hidden = True
End If
If Range("AU2759").Value = "18" Then
Rows("2759:2776").Hidden = False
Rows("2777:2786").Hidden = True
End If
If Range("AU2759").Value = "19" Then
Rows("2759:2777").Hidden = False
Rows("2778:2786").Hidden = True
End If
If Range("AU2759").Value = "20" Then
Rows("2759:2778").Hidden = False
Rows("2779:2786").Hidden = True
End If
If Range("AU2759").Value = "21" Then
Rows("2759:2779").Hidden = False
Rows("2780:2786").Hidden = True
End If
If Range("AU2759").Value = "22" Then
Rows("2759:2780").Hidden = False
Rows("2781:2786").Hidden = True
End If
If Range("AU2759").Value = "23" Then
Rows("2759:2781").Hidden = False
Rows("2782:2786").Hidden = True
End If
If Range("AU2759").Value = "24" Then
Rows("2759:2782").Hidden = False
Rows("2783 2786").Hidden = True
End If
If Range("AU2759").Value = "25" Then
Rows("2759:2783").Hidden = False
Rows("2784:2786").Hidden = True
End If
If Range("AU2759").Value = "26" Then
Rows("2759:2784").Hidden = False
Rows("2785:2786").Hidden = True
End If
If Range("AU2759").Value = "27" Then
Rows("2759:2786").Hidden = False
End If
If Range("AU2791").Value = "2" Then
Rows("2791:2792").Hidden = False
Rows("2793:2793").Hidden = True
End If
If Range("AU2791").Value = "3" Then
Rows("2791:2793").Hidden = False
End If
If Range("AU2794").Value = "2" Then
Rows("2794:2795").Hidden = False
Rows("2796:2796").Hidden = True
End If
If Range("AU2794").Value = "3" Then
Rows("2794:2796").Hidden = False
End If
If Range("AU2797").Value = "2" Then
Rows("2797:2798").Hidden = False
Rows("2799: 2799").Hidden = True
End If
If Range("AU2797").Value = "3" Then
Rows("2797:2799").Hidden = False
End If
If Range("AU2800").Value = "2" Then
Rows("2800:2801").Hidden = False
Rows("2802:2802").Hidden = True
End If
If Range("AU2800").Value = "3" Then
Rows("2800:2802").Hidden = False
End If
If Range("AU2807").Value = "2" Then
Rows("2807:2808").Hidden = False
Rows("2809: 2809").Hidden = True
End If
If Range("AU2807").Value = "3" Then
Rows("2807:2809").Hidden = False
End If

End Sub
 
Last edited by a moderator:

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"
Welcome to the Board!

Regarding your second block of code:
The error you are getting means that you have too much code in a single procedure. The way to correct it would be to split it into smaller blocks and call them from the main procedure. Such as:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ExecuteBlock1
    ExecuteBlock2
    ExecuteBlock3
    ExecuteBlock4
End Sub

Sub ExecuteBlock1
    (Contains 1/4 of your code)
End Sub
Sub ExecuteBlock2
    (Contains 1/4 of your code)
End Sub
Sub ExecuteBlock3
    (Contains 1/4 of your code)
End Sub
Sub ExecuteBlock4
    (Contains 1/4 of your code)
End Sub

However your code has some other problems:
Every time you select a different cell (not change it, only select it) your code would execute 800+ If..Then statements that would check 41 cell values (all of them multiple times) and hide/unhide rows based on the results. This would make working with that worksheet extremely slow.

Use of the Worksheet_Change event, Intersect function, Select Case branching structure and combining statements would reduce the amount of code needed:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("AK18")) Then
        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
    End If
    If Intersect(Target, Range("AQ44")) Then
        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
            Rows("60:62").Hidden = False: Rows("63:79").Hidden = True
            '.... more for AQ44
        Case "20", 20
            Range("60:79,294:313,476:794,799:818").EntireRow.Hidden = False
        End Select
    End If
    
    '... more for 39 other cells cells being checked
    
End Sub

The above code would check if any of the 41 tracked cells were modified and it one was then execute the if statements relating to its new value.

This does not apply since your code is only hiding/unhiding rows, but if in the future the code makes changes to the content of cells it would be applicable:
If you use the event to change your worksheet, be sure to use Application.EnableEvents around that code unless you want cascading changes
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    (code that changes the worksheet)
    Application.EnableEvents = True
End Sub
 
Last edited:
Upvote 0
Thank you Sir, Now I want to protect the sheet with Password 'Geetha' It show run time error : unable to set the Hidden property of Range class. How to overcome from this problem and were to put vba code of protect sheet in aforesaid code
 
Upvote 0
If the procedues are too lagre you have to make them samller:
I've tried to reduce the ones named beginning ExecuteBlock… by applying some arithmetic to determine which ranges need to be shown.
I've left some original commented-out code because there may have been typos in them - if not then we'll have to tweak.
Code:
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
Range("60:79,294:313,476:794,799:818").EntireRow.Hidden = True
x = Range("AQ44").Value
Rows(60).Resize(x).EntireRow.Hidden = False
Rows(294).Resize(x).EntireRow.Hidden = False
Rows(476).Resize(14 + (x - 1) * 16).EntireRow.Hidden = False
Rows(799).Resize(x).EntireRow.Hidden = False
'    Case "19", 19
'Range("60:78,294:312,476:778(777?!),799:817").Select '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(793?!),799:818").Select 'EntireRow.Hidden = False
End Sub

Sub ExecuteBlock2()
Worksheets("F3CBD").Visible = Range("AK86").Value = "Yes"
Worksheets("F3EB").Visible = Range("AK93").Value = "Yes"
Worksheets("F29C").Visible = Range("AK100").Value = "Yes"

'can range("p44") only be yes or no? If so following can be shortened more.
If Range("P44").Value = "Yes" Then
    Rows("143:245").Hidden = False
    Rows("323:404").Hidden = False
Else
    Rows("143:245").Hidden = True
    Rows("323:404").Hidden = True
End If
If Range("P44").Value = "No" Then
    Rows("247:279").Hidden = False
    Rows("407:459").Hidden = False
Else
    Rows("247:279").Hidden = True
    Rows("407:459").Hidden = True
End If


Rows("82:85").Hidden = Not (Range("AA81").Value = "Yes")
Rows("89:92").Hidden = Not (Range("AA88").Value = "Yes")
Rows("96:99").Hidden = Not (Range("AA95").Value = "Yes")

Rows("103:104").Hidden = Not (Range("AA102").Value = "Yes")

Rows("2114:2301").Hidden = Not (Range("AS110").Value = "Yes")
Rows("2648:2652").Hidden = Not (Range("AS111").Value = "Yes")
Rows("2352:2366").Hidden = Not (Range("AS112").Value = "Yes")
Rows("2543:2567").Hidden = Not (Range("AS114").Value = "Yes")
Rows("2096:2109").Hidden = Not (Range("AS115").Value = "Yes")
Rows("2695:2708").Hidden = Not (Range("AS116").Value = "Yes")
Rows("2001:2001").Hidden = Not (Range("AS119").Value = "Yes")
Rows("2002:2009").Hidden = Not (Range("AS120").Value = "Yes")
Rows("2010:2015").Hidden = Not (Range("AS121").Value = "Yes")
Rows("2016:2019").Hidden = Not (Range("AS122").Value = "Yes")
Rows("2020:2022").Hidden = Not (Range("AS123").Value = "Yes")
Rows("2036:2046").Hidden = Not (Range("AS124").Value = "Yes")
Rows("2050:2059").Hidden = Not (Range("AS125").Value = "Yes")
Rows("2062:2095").Hidden = Not (Range("AS126").Value = "Yes")
Rows("2578:2592").Hidden = Not (Range("AS127").Value = "Yes")

Rows("1592:1649").Hidden = Not (Range("AK55").Value = "Yes")
Rows("1650:1667").Hidden = Not (Range("AK56").Value = "Yes")

Rows("1681:1859").Hidden = Not (Range("U110").Value = "Yes")
Rows("2034:2321").Hidden = Not (Range("U111").Value = "Yes")
Rows("2323:2346").Hidden = Not (Range("U112").Value = "Yes")
Rows("2366:2390").Hidden = Not (Range("U113").Value = "Yes")
Rows("2389:2404").Hidden = Not (Range("U114").Value = "Yes")
Rows("2403:2530").Hidden = Not (Range("U115").Value = "Yes")
Rows("2657:2672").Hidden = Not (Range("U116").Value = "Yes")
Rows("1927:1934").Hidden = Not (Range("U119").Value = "Yes")
Rows("1935:1940").Hidden = Not (Range("U120").Value = "Yes")
Rows("1941:1946").Hidden = Not (Range("U121").Value = "Yes")
Rows("1947:1952").Hidden = Not (Range("U122").Value = "Yes")
Rows("1953:1958").Hidden = Not (Range("U123").Value = "Yes")
Rows("1959:1963").Hidden = Not (Range("U124").Value = "Yes")
Rows("1964:1997").Hidden = Not (Range("U126").Value = "Yes")

Rows("908:924").Hidden = Not (Range("AU892").Value = "Yes")

Rows("831:861").Hidden = True
Rows(831).Resize(Range("AU832").Value).Hidden = False    '(for values 2 to 31)

Rows("869:883").Hidden = True
Rows(869).Resize(Range("AU870").Value).Hidden = False
End Sub

Sub ExecuteBlock3()
Rows("946:976").Hidden = True
Rows(946).Resize(Range("AU944").Value).Hidden = False    '(for values 2 to 31)

Rows("983:997").Hidden = True
Rows(983).Resize(Range("AU981").Value).Hidden = False    '(for values 2 to 15)

Rows("1003:1054").Hidden = True
Rows(1003).Resize(Range("AU1003").Value).Hidden = False    '(for values 2 to 51)

Rows("1070:1121").Hidden = True
Rows(1070).Resize(Range("AU1067").Value).Hidden = False    '(for values 2 to 51)

Rows("1132:1162").Hidden = True
Rows(1132).Resize(Range("AU1130").Value).Hidden = False    '(for values 2 to 31)

Rows("1176:1296").Hidden = True
Rows(1176).Resize(Range("AU1174").Value).Hidden = False '(for values 2 to 121)
End Sub

Sub ExecuteBlock4()
Rows("1305:1319").Hidden = True
Rows(1305).Resize(Range("AU1304").Value).Hidden = False    '(for values 2 to 15)

Rows("1331:1345").Hidden = True
Rows(1331).Resize(Range("AU1330").Value).Hidden = False    '(for values 2 to 15)

Rows("1353:1373").Hidden = True
Rows(1353).Resize(Range("AU1351").Value).Hidden = False    '(for values 2 to 21)

Rows("1427:1577").Hidden = True
Rows(1427).Resize(Range("AU1426").Value).Hidden = False    '(for values 2 to 151)

Rows("1596:1608").Hidden = True
Rows(1596).Resize(Range("AU1596").Value).Hidden = False    '(for values 2 to 13)

Rows("1616:1628").Hidden = True
Rows(1616).Resize(Range("AU1616").Value).Hidden = False    '(for values 2 to 12)

Rows("1635:1647").Hidden = True
Rows(1635).Resize(Range("AU1635").Value + 1).Hidden = False    '(for values 1 to 12)
End Sub

Sub ExecuteBlock5()
Rows("1653:1664").Hidden = True
Rows(1653).Resize(Range("AU1653").Value).Hidden = False    '(for values 1 to 12)

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

Rows("1975:1996").Hidden = True
Rows(1975).Resize(Range("AU1975").Value).Hidden = False    '(for values 1 to 22)

Rows("2152:2216").Hidden = True
Rows(2152).Resize(Range("AU2151").Value * 5 - 1).Hidden = False    '(for values 1 to 13)

Rows("2217:2273").Hidden = True
Rows(2217).Resize(Range("AU2220").Value * 5 + 1).Hidden = False    '(for values 1 to 11)

Rows("2410:2459").Hidden = True
Rows(2410).Resize(Range("AU2408").Value * 5).Hidden = False    '(for values 1 to 10)

Rows("2472:2516").Hidden = True
Rows(2472).Resize(Range("AU2471").Value * 5).Hidden = False    '(for values 1 to 9)

Rows("2723:2753").Hidden = True
Rows(2723).Resize(Range("AU2720").Value - 2).Hidden = False    '(for values 3 to 33)
'although an exception (typo?):

'If Range("AU2720").Value = "2" Then
'    Rows("2721:2722").Hidden = False
'    Rows("2723:2753").Hidden = True
'End If

Rows("2758:2786").Hidden = True
Rows(2758).Resize(Range("AU2758").Value).Hidden = False    '(for values 1 to 28)

Rows("2791:2793").Hidden = True
Rows(2791).Resize(Range("AV2791").Value).Hidden = False    '(for values 1 to 3)

Rows("2794:2796").Hidden = True
Rows(2794).Resize(Range("AV2794").Value).Hidden = False    '(for values 1 to 3)

Rows("2797:2799").Hidden = True
Rows(2797).Resize(Range("AV2797").Value).Hidden = False    '(for values 1 to 3)

Rows("2800:2802").Hidden = True
Rows(2800).Resize(Range("AV2800").Value).Hidden = False    '(for values 1 to 3)

Rows("2807:2809").Hidden = True
Rows(2807).Resize(Range("AV2807").Value).Hidden = False    '(for values 1 to 3)
End Sub
 
Last edited:
Upvote 0

Forum statistics

Threads
1,213,539
Messages
6,114,221
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

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

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

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

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

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

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

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

Disable uBlock

Follow these easy steps to disable uBlock

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