Set range for Multiple change events on one sheet each referring to a different range of cells

J

jtatt

New Member
Joined
May 1, 2019
Messages
32
1 change event worked on the worksheet until it got too large. I split the 1 event into two events. One titled “Private Sub Worksheet_Change1(ByVal Target As Range)” which I want to work for changes in range E38:H70
The 2nd event “Private Sub Worksheet_Change(ByVal Target As Range)” is for changes in range E6:H37

The result was object variable or block variable not set errors. To resolve this I tried to set targets by either
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then
Followed by code which worked prior to splitting into 2
AND
I also tried Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 6 And Target.Row <= 37 Then
Followed by code which worked prior to splitting into 2

I have also tried to set target with If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then

As a result now when changes are made E6:H37 the change event works. Changes within E38:H70 do not work, there are no error messages. Nothing happens

This is the start of each event:
The sub which is working:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then


'Part1 cbdn
If Target.Address = "$E$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cbdn"
End Select
End If
Which continues on for many rows ending with
End If
End Sub


The event which is not working:
Private Sub Worksheet_Change1(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E38:H70")) Is Nothing Then

'Part1 hah
If Target.Address = "$E$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_hah"
Case Is = ""
Application.Goto Reference:="hah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_hah"
End Select
End If

and so on ending with End If and End Sub

Any assistance would be much appreciated, thank you
 

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
Sort by date Sort by votes
Here is a example of how you do it:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  9/1/2019  4:17:00 AM  EDT
If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then
    MsgBox "Hello"
End If

If Not Application.Intersect(Target, Range("E38:H70")) Is Nothing Then
    MsgBox "Good Bye"
End If
End Sub
 
Last edited:
Upvote 0
Thank you for your reply

I tried the suggestion and got "block if without end if" error, so added a further two rows of "end if" before End Sub
now error is "procedure is too large"
 
Upvote 0
If I understand your one range. If any cell in the Range is >0 do this
Or if value="" do this

So why do you think you need to specify each cell in the range.

Would this not work?

This script says if any cell in the entire range changes to >0 do this.
We do not need to give the exact cell in the range

And to hide a range you do not need to select it.



Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  9/1/2019  5:00:43 AM  EDT
If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then
With Range("cbdn_1")
Select Case Target.Value
    Case Is > 0
        .EntireRow.Hidden = False
    Application.Goto Reference:="T1_cbdn"
    Case Is = ""
        .EntireRow.Hidden = True
        Application.Goto Reference:="T1_cbdn"
End Select
End With
End If
End Sub
 
Upvote 0
You need to show me the entire code you have in your sheet.

If you just have the code I gave you as a sample I see no way how it would say code is to large.
 
Upvote 0
Sub Worksheet_Change1 is not a valid event name, which is why nothing happens.

You should be able to replace each of your Select > End Select blocks with a single line of code like
Code: 
Range("cbdn_1").EntireRow.Hidden = (Target.Value ="")

Coupling this with the suggestion above, you should be able to shrink your code significantly.

In order to provide much more advice, we would need a bigger example to work with in order to estabish any patterns (possibly the whole thing as a text file uploaded to dropbox or similar).
 
Upvote 0
Thank you for your responses
There are around 800 rows of code which is why I tried to split into 2 change events

If I edit my code to reduce it I am not sure if it will make it small enough for 1 event

below is all my code
The second split, without event name for second event (after the event for row 37 "flon")

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then


'Part1 cbdn
If Target.Address = "$E$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cbdn"
End Select
End If


'Part2 cbdn
If Target.Address = "$F$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cbdn"
End Select
End If


'Part3 cbdn
If Target.Address = "$G$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cbdn"
End Select
End If


'Part4 cbdn
If Target.Address = "$H$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cbdn"
End Select
End If


'Part1 cmn
If Target.Address = "$E$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cmn"
Case Is = ""
Application.Goto Reference:="cmn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cmn"
End Select
End If


'Part2 cmn
If Target.Address = "$F$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cmn"
Case Is = ""
Application.Goto Reference:="cmn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cmn"
End Select
End If




'Part3 cmn
If Target.Address = "$G$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cmn"
Case Is = ""
Application.Goto Reference:="cmn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cmn"
End Select
End If


'Part4 cmn
If Target.Address = "$H$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cmn"
Case Is = ""
Application.Goto Reference:="cmn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cmn"
End Select
End If


'Part1 efd
If Target.Address = "$E$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_efd"
Case Is = ""
Application.Goto Reference:="efd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_efd"
End Select
End If


'Part2 efd
If Target.Address = "$F$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_efd"
Case Is = ""
Application.Goto Reference:="efd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_efd"
End Select
End If




'Part3 efd
If Target.Address = "$G$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_efd"
Case Is = ""
Application.Goto Reference:="efd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_efd"
End Select
End If


'Part4 efd
If Target.Address = "$H$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_efd"
Case Is = ""
Application.Goto Reference:="efd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_efd"
End Select
End If




'Part1 etw
If Target.Address = "$E$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_etw"
Case Is = ""
Application.Goto Reference:="etw_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_etw"
End Select
End If


'Part2 etw
If Target.Address = "$F$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_etw"
Case Is = ""
Application.Goto Reference:="etw_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_etw"
End Select
End If


'Part3 etw
If Target.Address = "$G$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_etw"
Case Is = ""
Application.Goto Reference:="etw_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_etw"
End Select
End If


'Part4 etw
If Target.Address = "$H$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_etw"
Case Is = ""
Application.Goto Reference:="etw_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_etw"
End Select
End If


'Part1 ecs
If Target.Address = "$E$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ecs"
Case Is = ""
Application.Goto Reference:="ecs_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ecs"
End Select
End If


'Part2 ecs
If Target.Address = "$F$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ecs"
Case Is = ""
Application.Goto Reference:="ecs_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ecs"
End Select
End If


'Part3 ecs
If Target.Address = "$G$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ecs"
Case Is = ""
Application.Goto Reference:="ecs_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ecs"
End Select
End If


'Part4 ecs
If Target.Address = "$H$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ecs"
Case Is = ""
Application.Goto Reference:="ecs_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ecs"
End Select
End If


'Part1 eog
If Target.Address = "$E$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_eog"
Case Is = ""
Application.Goto Reference:="eog_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_eog"
End Select
End If


'Part2 eog
If Target.Address = "$F$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_eog"
Case Is = ""
Application.Goto Reference:="eog_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_eog"
End Select
End If


'Part3 eog
If Target.Address = "$G$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_eog"
Case Is = ""
Application.Goto Reference:="eog_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_eog"
End Select
End If


'Part4 eog
If Target.Address = "$H$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_eog"
Case Is = ""
Application.Goto Reference:="eog_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_eog"
End Select
End If


'Part1 can
If Target.Address = "$E$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_can"
Case Is = ""
Application.Goto Reference:="can_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_can"
End Select
End If


'Part2 can
If Target.Address = "$F$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_can"
Case Is = ""
Application.Goto Reference:="can_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_can"
End Select
End If


'Part3 can
If Target.Address = "$G$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_can"
Case Is = ""
Application.Goto Reference:="can_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_can"
End Select
End If


'Part4 can
If Target.Address = "$H$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_can"
Case Is = ""
Application.Goto Reference:="can_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_can"
End Select
End If




'Part1 cak
If Target.Address = "$E$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cak"
Case Is = ""
Application.Goto Reference:="cak_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cak"
End Select
End If


'Part2 cak
If Target.Address = "$F$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cak"
Case Is = ""
Application.Goto Reference:="cak_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cak"
End Select
End If


'Part3 cak
If Target.Address = "$G$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cak"
Case Is = ""
Application.Goto Reference:="cak_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cak"
End Select
End If


'Part4 cak
If Target.Address = "$H$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cak"
Case Is = ""
Application.Goto Reference:="cak_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cak"
End Select
End If


'Part1 cah
If Target.Address = "$E$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cah"
Case Is = ""
Application.Goto Reference:="cah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cah"
End Select
End If


'Part2 cah
If Target.Address = "$F$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cah"
Case Is = ""
Application.Goto Reference:="cah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cah"
End Select
End If


'Part3 cah
If Target.Address = "$G$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cah"
Case Is = ""
Application.Goto Reference:="cah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cah"
End Select
End If


'Part4 cah
If Target.Address = "$H$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cah"
Case Is = ""
Application.Goto Reference:="cah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cah"
End Select
End If


'Part1 cpi
If Target.Address = "$E$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cpi"
Case Is = ""
Application.Goto Reference:="cpi_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cpi"
End Select
End If


'Part2 cpi
If Target.Address = "$F$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cpi"
Case Is = ""
Application.Goto Reference:="cpi_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cpi"
End Select
End If


'Part3 cpi
If Target.Address = "$G$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cpi"
Case Is = ""
Application.Goto Reference:="cpi_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cpi"
End Select
End If


'Part4 cpi
If Target.Address = "$H$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cpi"
Case Is = ""
Application.Goto Reference:="cpi_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cpi"
End Select
End If


'Part1 cpf
If Target.Address = "$E$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cpf"
Case Is = ""
Application.Goto Reference:="cpf_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cpf"
End Select
End If


'Part2 cpf
If Target.Address = "$F$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cpf"
Case Is = ""
Application.Goto Reference:="cpf_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cpf"
End Select
End If


'Part3 cpf
If Target.Address = "$G$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cpf"
Case Is = ""
Application.Goto Reference:="cpf_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cpf"
End Select
End If


'Part4 cpf
If Target.Address = "$H$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cpf"
Case Is = ""
Application.Goto Reference:="cpf_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cpf"
End Select
End If


'Part1 drh
If Target.Address = "$E$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_drh"
Case Is = ""
Application.Goto Reference:="drh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_drh"
End Select
End If


'Part2 drh
If Target.Address = "$F$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_drh"
Case Is = ""
Application.Goto Reference:="drh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_drh"
End Select
End If


'Part3 drh
If Target.Address = "$G$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_drh"
Case Is = ""
Application.Goto Reference:="drh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_drh"
End Select
End If


'Part4 drh
If Target.Address = "$H$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_drh"
Case Is = ""
Application.Goto Reference:="drh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_drh"
End Select
End If


'Part1 dsn
If Target.Address = "$E$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_dsn"
Case Is = ""
Application.Goto Reference:="dsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_dsn"
End Select
End If


'Part2 dsn
If Target.Address = "$F$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_dsn"
Case Is = ""
Application.Goto Reference:="dsn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_dsn"
End Select
End If


'Part3 dsn
If Target.Address = "$G$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_dsn"
Case Is = ""
Application.Goto Reference:="dsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_dsn"
End Select
End If


'Part4 dsn
If Target.Address = "$H$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_dsn"
Case Is = ""
Application.Goto Reference:="dsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_dsn"
End Select
End If
'Copy a part1 to complete new part 1, 2 for 2,etc
'4 parts for each row
'T1 column E, T2 col F, T3 col G, T4 col H
'each section commences "If Target"
'Then Select Case and Case>0, etc
'Ends with End Select AND End If


'bulk copy from here, 51 times then edit group by grp
'MUST END WITH END SUB


'Part1 dsh
If Target.Address = "$E$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_dsh"
Case Is = ""
Application.Goto Reference:="dsh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_dsh"
End Select
End If


'Part2 dsh
If Target.Address = "$F$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_dsh"
Case Is = ""
Application.Goto Reference:="dsh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_dsh"
End Select
End If


'Part3 dsh
If Target.Address = "$G$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_dsh"
Case Is = ""
Application.Goto Reference:="dsh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_dsh"
End Select
End If


'Part4 dsh
If Target.Address = "$H$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_dsh"
Case Is = ""
Application.Goto Reference:="dsh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_dsh"
End Select
End If


'Part1 emh
If Target.Address = "$E$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emh"
Case Is = ""
Application.Goto Reference:="emh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emh"
End Select
End If


'Part2 emh
If Target.Address = "$F$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emh"
Case Is = ""
Application.Goto Reference:="emh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emh"
End Select
End If


'Part3 emh
If Target.Address = "$G$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emh"
Case Is = ""
Application.Goto Reference:="emh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emh"
End Select
End If


'Part4 emh
If Target.Address = "$H$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emh"
Case Is = ""
Application.Goto Reference:="emh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emh"
End Select
End If


'Part1 emk
If Target.Address = "$E$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emk"
Case Is = ""
Application.Goto Reference:="emk_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emk"
End Select
End If


'Part2 emk
If Target.Address = "$F$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emk"
Case Is = ""
Application.Goto Reference:="emk_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emk"
End Select
End If


'Part3 emk
If Target.Address = "$G$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emk"
Case Is = ""
Application.Goto Reference:="emk_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emk"
End Select
End If


'Part4 emk
If Target.Address = "$H$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emk"
Case Is = ""
Application.Goto Reference:="emk_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emk"
End Select
End If


'Part1 eman
If Target.Address = "$E$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_eman"
Case Is = ""
Application.Goto Reference:="eman_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_eman"
End Select
End If


'Part2 eman
If Target.Address = "$F$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_eman"
Case Is = ""
Application.Goto Reference:="eman_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_eman"
End Select
End If


'Part3 eman
If Target.Address = "$G$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_eman"
Case Is = ""
Application.Goto Reference:="eman_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_eman"
End Select
End If


'Part4 eman
If Target.Address = "$H$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_eman"
Case Is = ""
Application.Goto Reference:="eman_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_eman"
End Select
End If


'Part1 emah
If Target.Address = "$E$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emah"
Case Is = ""
Application.Goto Reference:="emah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emah"
End Select
End If


'Part2 emah
If Target.Address = "$F$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emah"
Case Is = ""
Application.Goto Reference:="emah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emah"
End Select
End If


'Part3 emah
If Target.Address = "$G$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emah"
Case Is = ""
Application.Goto Reference:="emah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emah"
End Select
End If


'Part4 emah
If Target.Address = "$H$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emah"
Case Is = ""
Application.Goto Reference:="emah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emah"
End Select
End If


'Part1 emad
If Target.Address = "$E$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emad"
Case Is = ""
Application.Goto Reference:="emad_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emad"
End Select
End If


'Part2 emad
If Target.Address = "$F$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emad"
Case Is = ""
Application.Goto Reference:="emad_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emad"
End Select
End If


'Part3 emad
If Target.Address = "$G$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emad"
Case Is = ""
Application.Goto Reference:="emad_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emad"
End Select
End If


'Part4 emad
If Target.Address = "$H$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emad"
Case Is = ""
Application.Goto Reference:="emad_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emad"
End Select
End If


'Part1 ffn
If Target.Address = "$E$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ffn"
Case Is = ""
Application.Goto Reference:="ffn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ffn"
End Select
End If


'Part2 ffn
If Target.Address = "$F$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ffn"
Case Is = ""
Application.Goto Reference:="ffn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ffn"
End Select
End If


'Part3 ffn
If Target.Address = "$G$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ffn"
Case Is = ""
Application.Goto Reference:="ffn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ffn"
End Select
End If


'Part4 ffn
If Target.Address = "$H$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ffn"
Case Is = ""
Application.Goto Reference:="ffn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ffn"
End Select
End If


'Part1 ffh
If Target.Address = "$E$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ffh"
Case Is = ""
Application.Goto Reference:="ffh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ffh"
End Select
End If


'Part2 ffh
If Target.Address = "$F$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ffh"
Case Is = ""
Application.Goto Reference:="ffh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ffh"
End Select
End If


'Part3 ffh
If Target.Address = "$G$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ffh"
Case Is = ""
Application.Goto Reference:="ffh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ffh"
End Select
End If


'Part4 ffh
If Target.Address = "$H$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ffh"
Case Is = ""
Application.Goto Reference:="ffh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ffh"
End Select
End If


'Part1 ffd
If Target.Address = "$E$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ffd"
Case Is = ""
Application.Goto Reference:="ffd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ffd"
End Select
End If


'Part2 ffd
If Target.Address = "$F$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ffd"
Case Is = ""
Application.Goto Reference:="ffd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ffd"
End Select
End If


'Part3 ffd
If Target.Address = "$G$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ffd"
Case Is = ""
Application.Goto Reference:="ffd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ffd"
End Select
End If


'Part4 ffd
If Target.Address = "$H$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ffd"
Case Is = ""
Application.Goto Reference:="ffd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ffd"
End Select
End If


'Part1 ebpn
If Target.Address = "$E$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ebpn"
End Select
End If


'Part2 ebpn
If Target.Address = "$F$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ebpn"
End Select
End If


'Part3 ebpn
If Target.Address = "$G$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ebpn"
End Select
End If


'Part4 ebpn
If Target.Address = "$H$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ebpn"
End Select
End If


'Part1 ebpd
If Target.Address = "$E$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ebpd"
End Select
End If


'Part2 ebpd
If Target.Address = "$F$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ebpd"
End Select
End If


'Part3 ebpd
If Target.Address = "$G$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ebpd"
End Select
End If


'Part4 ebpd
If Target.Address = "$H$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ebpd"
End Select
End If


'Part1 emrn
If Target.Address = "$E$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emrn"
Case Is = ""
Application.Goto Reference:="emrn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emrn"
End Select
End If


'Part2 emrn
If Target.Address = "$F$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emrn"
Case Is = ""
Application.Goto Reference:="emrn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emrn"
End Select
End If


'Part3 emrn
If Target.Address = "$G$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emrn"
Case Is = ""
Application.Goto Reference:="emrn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emrn"
End Select
End If


'Part4 emrn
If Target.Address = "$H$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emrn"
Case Is = ""
Application.Goto Reference:="emrn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emrn"
End Select
End If


'Part1 emrd
If Target.Address = "$E$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emrd"
Case Is = ""
Application.Goto Reference:="emrd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emrd"
End Select
End If


'Part2 emrd
If Target.Address = "$F$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emrd"
Case Is = ""
Application.Goto Reference:="emrd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emrd"
End Select
End If


'Part3 emrd
If Target.Address = "$G$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emrd"
Case Is = ""
Application.Goto Reference:="emrd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emrd"
End Select
End If


'Part4 emrd
If Target.Address = "$H$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emrd"
Case Is = ""
Application.Goto Reference:="emrd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emrd"
End Select
End If


'Part1 fmsn
If Target.Address = "$E$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_fmsn"
End Select
End If


'Part2 fmsn
If Target.Address = "$F$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_fmsn"
End Select
End If


'Part3 fmsn
If Target.Address = "$G$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_fmsn"
End Select
End If


'Part4 fmsn
If Target.Address = "$H$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_fmsn"
End Select
End If


'Part1 faun
If Target.Address = "$E$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_faun"
Case Is = ""
Application.Goto Reference:="faun_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_faun"
End Select
End If


'Part2 faun
If Target.Address = "$F$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_faun"
Case Is = ""
Application.Goto Reference:="faun_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_faun"
End Select
End If


'Part3 faun
If Target.Address = "$G$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_faun"
Case Is = ""
Application.Goto Reference:="faun_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_faun"
End Select
End If


'Part4 faun
If Target.Address = "$H$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_faun"
Case Is = ""
Application.Goto Reference:="faun_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_faun"
End Select
End If


'Part1 fauh
If Target.Address = "$E$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_fauh"
Case Is = ""
Application.Goto Reference:="fauh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_fauh"
End Select
End If


'Part2 fauh
If Target.Address = "$F$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_fauh"
Case Is = ""
Application.Goto Reference:="fauh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_fauh"
End Select
End If


'Part3 fauh
If Target.Address = "$G$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_fauh"
Case Is = ""
Application.Goto Reference:="fauh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_fauh"
End Select
End If


'Part4 fauh
If Target.Address = "$H$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_fauh"
Case Is = ""
Application.Goto Reference:="fauh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_fauh"
End Select
End If




'Part1 fmh
If Target.Address = "$E$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_fmh"
Case Is = ""
Application.Goto Reference:="fmh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_fmh"
End Select
End If


'Part2 fmh
If Target.Address = "$F$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_fmh"
Case Is = ""
Application.Goto Reference:="fmh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_fmh"
End Select
End If


'Part3 fmh
If Target.Address = "$G$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_fmh"
Case Is = ""
Application.Goto Reference:="fmh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_fmh"
End Select
End If


'Part4 fmh
If Target.Address = "$H$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_fmh"
Case Is = ""
Application.Goto Reference:="fmh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_fmh"
End Select
End If


'Part1 floh
If Target.Address = "$E$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_floh"
Case Is = ""
Application.Goto Reference:="floh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_floh"
End Select
End If


'Part2 floh
If Target.Address = "$F$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_floh"
Case Is = ""
Application.Goto Reference:="floh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_floh"
End Select
End If


'Part3 floh
If Target.Address = "$G$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_floh"
Case Is = ""
Application.Goto Reference:="floh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_floh"
End Select
End If


'Part4 floh
If Target.Address = "$H$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_floh"
Case Is = ""
Application.Goto Reference:="floh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_floh"
End Select
End If


'Part1 flon
If Target.Address = "$E$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_flon"
Case Is = ""
Application.Goto Reference:="flon_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_flon"
End Select
End If


'Part2 flon
If Target.Address = "$F$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_flon"
Case Is = ""
Application.Goto Reference:="flon_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_flon"
End Select
End If


'Part3 flon
If Target.Address = "$G$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_flon"
Case Is = ""
Application.Goto Reference:="flon_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_flon"
End Select
End If


'Part4 flon
If Target.Address = "$H$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_flon"
Case Is = ""
Application.Goto Reference:="flon_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_flon"
End Select
End If






If Not Application.Intersect(Target, Range("E38:H70")) Is Nothing Then


'Part1 hah
If Target.Address = "$E$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_hah"
Case Is = ""
Application.Goto Reference:="hah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_hah"
End Select
End If


'Part2 hah
If Target.Address = "$F$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_hah"
Case Is = ""
Application.Goto Reference:="hah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_hah"
End Select
End If


'Part3 hah
If Target.Address = "$G$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_hah"
Case Is = ""
Application.Goto Reference:="hah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_hah"
End Select
End If


'Part4 hah
If Target.Address = "$H$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_hah"
Case Is = ""
Application.Goto Reference:="hah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_hah"
End Select
End If


'Part1 han
If Target.Address = "$E$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_han"
Case Is = ""
Application.Goto Reference:="han_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_han"
End Select
End If


'Part2 han
If Target.Address = "$F$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_han"
Case Is = ""
Application.Goto Reference:="han_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_han"
End Select
End If


'Part3 han
If Target.Address = "$G$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_han"
Case Is = ""
Application.Goto Reference:="han_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_han"
End Select
End If


'Part4 han
If Target.Address = "$H$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_dhan"
Case Is = ""
Application.Goto Reference:="han_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_han"
End Select
End If


'Part1 ilsn
If Target.Address = "$E$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ilsn"
Case Is = ""
Application.Goto Reference:="ilsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ilsn"
End Select
End If


'Part2 ilsn
If Target.Address = "$F$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ilsn"
Case Is = ""
Application.Goto Reference:="ilsnn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ilsn"
End Select
End If


'Part3 ilsn
If Target.Address = "$G$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ilsn"
Case Is = ""
Application.Goto Reference:="ilsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ilsn"
End Select
End If


'Part4 ilsn
If Target.Address = "$H$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ilsn"
Case Is = ""
Application.Goto Reference:="ilsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ilsn"
End Select
End If


'Part1 ihrn
If Target.Address = "$E$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ihrn"
End Select
End If


'Part2 ihrn
If Target.Address = "$F$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ihrn"
End Select
End If


'Part3 ihrn
If Target.Address = "$G$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ihrn"
End Select
End If


'Part4 ihrn
If Target.Address = "$H$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ihrn"
End Select
End If


'Part1 ilmh
If Target.Address = "$E$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ilmh"
End Select
End If


'Part2 ilmh
If Target.Address = "$F$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ilmh"
End Select
End If


'Part3 ilmh
If Target.Address = "$G$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ilmh"
End Select
End If


'Part4 ilmh
If Target.Address = "$H$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ilmh"
End Select
End If


'Part1 mdh
If Target.Address = "$E$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_mdh"
Case Is = ""
Application.Goto Reference:="mdh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_mdh"
End Select
End If


'Part2 mdh
If Target.Address = "$F$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_mdh"
Case Is = ""
Application.Goto Reference:="mdh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_mdh"
End Select
End If


'Part3 mdh
If Target.Address = "$G$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_mdh"
Case Is = ""
Application.Goto Reference:="mdh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_mdh"
End Select
End If


'Part4 mdh
If Target.Address = "$H$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_mdh"
Case Is = ""
Application.Goto Reference:="mdh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_mdh"
End Select
End If


'Part1 negn
If Target.Address = "$E$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_negn"
Case Is = ""
Application.Goto Reference:="negn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_negn"
End Select
End If


'Part2 negn
If Target.Address = "$F$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_negn"
Case Is = ""
Application.Goto Reference:="negn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_negn"
End Select
End If


'Part3 negn
If Target.Address = "$G$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_negn"
Case Is = ""
Application.Goto Reference:="negn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_negn"
End Select
End If


'Part4 negn
If Target.Address = "$H$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_negn"
Case Is = ""
Application.Goto Reference:="negn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_negn"
End Select
End If


'Part1 oan
If Target.Address = "$E$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_oan"
Case Is = ""
Application.Goto Reference:="oan_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_oan"
End Select
End If


'Part2 oan
If Target.Address = "$F$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_oan"
Case Is = ""
Application.Goto Reference:="oan_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_oan"
End Select
End If


'Part3 oan
If Target.Address = "$G$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_oan"
Case Is = ""
Application.Goto Reference:="oan_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_oan"
End Select
End If


'Part4 oan
If Target.Address = "$H$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_oan"
Case Is = ""
Application.Goto Reference:="oan_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_oan"
End Select
End If


'Part1 pash
If Target.Address = "$E$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pash"
Case Is = ""
Application.Goto Reference:="pash_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pash"
End Select
End If


'Part2 pash
If Target.Address = "$F$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pash"
Case Is = ""
Application.Goto Reference:="pash_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pash"
End Select
End If


'Part3 pash
If Target.Address = "$G$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pash"
Case Is = ""
Application.Goto Reference:="pash_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pash"
End Select
End If


'Part4 pash
If Target.Address = "$H$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pash"
Case Is = ""
Application.Goto Reference:="pash_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pash"
End Select
End If


'Part1 pasn
If Target.Address = "$E$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pasn"
Case Is = ""
Application.Goto Reference:="pasn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pasn"
End Select
End If


'Part2 pasn
If Target.Address = "$F$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pasn"
Case Is = ""
Application.Goto Reference:="pasn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pasn"
End Select
End If


'Part3 pasn
If Target.Address = "$G$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pasn"
Case Is = ""
Application.Goto Reference:="pasn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pasn"
End Select
End If


'Part4 pasn
If Target.Address = "$H$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pasn"
Case Is = ""
Application.Goto Reference:="pasn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pasn"
End Select
End If


'Part1 pssh
If Target.Address = "$E$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pssh"
Case Is = ""
Application.Goto Reference:="pssh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pssh"
End Select
End If


'Part2 pssh
If Target.Address = "$F$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pssh"
Case Is = ""
Application.Goto Reference:="pssh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pssh"
End Select
End If


'Part3 pssh
If Target.Address = "$G$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pssh"
Case Is = ""
Application.Goto Reference:="pssh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pssh"
End Select
End If


'Part4 pssh
If Target.Address = "$H$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pssh"
Case Is = ""
Application.Goto Reference:="pssh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pssh"
End Select
End If


'Part1 pssn
If Target.Address = "$E$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pssn"
Case Is = ""
Application.Goto Reference:="pssn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pssn"
End Select
End If


'Part2 pssn
If Target.Address = "$F$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pssn"
Case Is = ""
Application.Goto Reference:="pssn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pssn"
End Select
End If


'Part3 pssn
If Target.Address = "$G$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pssn"
Case Is = ""
Application.Goto Reference:="pssn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pssn"
End Select
End If


'Part4 pssn
If Target.Address = "$H$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pssn"
Case Is = ""
Application.Goto Reference:="pssn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pssn"
End Select
End If


'Part1 projn
If Target.Address = "$E$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_projn"
Case Is = ""
Application.Goto Reference:="projn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_projn"
End Select
End If


'Part2 projn
If Target.Address = "$F$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_projn"
Case Is = ""
Application.Goto Reference:="projn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_projn"
End Select
End If


'Part3 projn
If Target.Address = "$G$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_projn"
Case Is = ""
Application.Goto Reference:="projn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_projn"
End Select
End If


'Part4 projn
If Target.Address = "$H$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_projn"
Case Is = ""
Application.Goto Reference:="projn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_projn"
End Select
End If


'Part1 projd
If Target.Address = "$E$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_projd"
Case Is = ""
Application.Goto Reference:="projd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_projd"
End Select
End If


'Part2 projd
If Target.Address = "$F$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_projd"
Case Is = ""
Application.Goto Reference:="projd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_projd"
End Select
End If


'Part3 projd
If Target.Address = "$G$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_projd"
Case Is = ""
Application.Goto Reference:="projd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_projd"
End Select
End If


'Part4 projd
If Target.Address = "$H$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_projd"
Case Is = ""
Application.Goto Reference:="projd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_projd"
End Select
End If


'Part1 rrah
If Target.Address = "$E$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rrah"
Case Is = ""
Application.Goto Reference:="rrah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rrah"
End Select
End If


'Part2 rrah
If Target.Address = "$F$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rrah"
Case Is = ""
Application.Goto Reference:="rrah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rrah"
End Select
End If


'Part3 rrah
If Target.Address = "$G$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rrah"
Case Is = ""
Application.Goto Reference:="rrah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rrah"
End Select
End If


'Part4 rrah
If Target.Address = "$H$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rrah"
Case Is = ""
Application.Goto Reference:="rrah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rrah"
End Select
End If


'Part1 rran
If Target.Address = "$E$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rran"
Case Is = ""
Application.Goto Reference:="rran_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rran"
End Select
End If


'Part2 rran
If Target.Address = "$F$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rran"
Case Is = ""
Application.Goto Reference:="rran_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rran"
End Select
End If


'Part3 rran
If Target.Address = "$G$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rran"
Case Is = ""
Application.Goto Reference:="rran_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rran"
End Select
End If


'Part4 rran
If Target.Address = "$H$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rran"
Case Is = ""
Application.Goto Reference:="rran_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rran"
End Select
End If


'Part1 rwih
If Target.Address = "$E$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwih"
Case Is = ""
Application.Goto Reference:="rwih_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwih"
End Select
End If


'Part2 rwih
If Target.Address = "$F$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwih"
Case Is = ""
Application.Goto Reference:="rwih_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwih"
End Select
End If


'Part3 rwih
If Target.Address = "$G$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwih"
Case Is = ""
Application.Goto Reference:="rwih_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwih"
End Select
End If


'Part4 rwih
If Target.Address = "$H$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwih"
Case Is = ""
Application.Goto Reference:="rwih_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwih"
End Select
End If


'Part1 rwfh
If Target.Address = "$E$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwfh"
End Select
End If


'Part2 rwfh
If Target.Address = "$F$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwfh"
End Select
End If


'Part3 rwfh
If Target.Address = "$G$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwfh"
End Select
End If


'Part4 rwfh
If Target.Address = "$H$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwfh"
End Select
End If


'Part1 rwik
If Target.Address = "$E$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwik"
Case Is = ""
Application.Goto Reference:="rwik_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwik"
End Select
End If


'Part2 rwik
If Target.Address = "$F$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwik"
Case Is = ""
Application.Goto Reference:="rwik_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwik"
End Select
End If


'Part3 rwik
If Target.Address = "$G$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwik"
Case Is = ""
Application.Goto Reference:="rwik_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwik"
End Select
End If


'Part4 rwik
If Target.Address = "$H$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwik"
Case Is = ""
Application.Goto Reference:="rwik_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwik"
End Select
End If


'Part1 rwfk
If Target.Address = "$E$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwfk"
End Select
End If


'Part2 rwfk
If Target.Address = "$F$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwfk"
End Select
End If


'Part3 rwfk
If Target.Address = "$G$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwfk"
End Select
End If


'Part4 rwfk
If Target.Address = "$H$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwfk"
End Select
End If


'Part1 rhh
If Target.Address = "$E$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhh"
Case Is = ""
Application.Goto Reference:="rhh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhh"
End Select
End If


'Part2 rhh
If Target.Address = "$F$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhh"
Case Is = ""
Application.Goto Reference:="rhh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhh"
End Select
End If


'Part3 rhh
If Target.Address = "$G$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhh"
Case Is = ""
Application.Goto Reference:="rhh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhh"
End Select
End If


'Part4 rhh
If Target.Address = "$H$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhh"
Case Is = ""
Application.Goto Reference:="rhh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhh"
End Select
End If


'Part1 rhhm
If Target.Address = "$E$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhhm"
End Select
End If


'Part2 rhhm
If Target.Address = "$F$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhhm"
End Select
End If


'Part3 rhhm
If Target.Address = "$G$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhhm"
End Select
End If


'Part4 rhhm
If Target.Address = "$H$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhhm"
End Select
End If


'Part1 rhdc
If Target.Address = "$E$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhdc"
End Select
End If


'Part2 rhdc
If Target.Address = "$F$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhdc"
End Select
End If


'Part3 rhdc
If Target.Address = "$G$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhdc"
End Select
End If


'Part4 rhdc
If Target.Address = "$H$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhdc"
End Select
End If


'Part1 rhdp
If Target.Address = "$E$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhdp"
End Select
End If


'Part2 rhdp
If Target.Address = "$F$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhdp"
End Select
End If


'Part3 rhdp
If Target.Address = "$G$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhdp"
End Select
End If


'Part4 rhdp
If Target.Address = "$H$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhdp"
End Select
End If


'Part1 sph
If Target.Address = "$E$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_sph"
Case Is = ""
Application.Goto Reference:="sph_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_sph"
End Select
End If


'Part2 sph
If Target.Address = "$F$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_sph"
Case Is = ""
Application.Goto Reference:="sph_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_sph"
End Select
End If


'Part3 sph
If Target.Address = "$G$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_sph"
Case Is = ""
Application.Goto Reference:="sph_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_sph"
End Select
End If


'Part4 sph
If Target.Address = "$H$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_sph"
Case Is = ""
Application.Goto Reference:="sph_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_sph"
End Select
End If


'Part1 spd
If Target.Address = "$E$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_spd"
Case Is = ""
Application.Goto Reference:="spd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_spd"
End Select
End If


'Part2 spd
If Target.Address = "$F$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_spd"
Case Is = ""
Application.Goto Reference:="spd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_spd"
End Select
End If


'Part3 spd
If Target.Address = "$G$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_spd"
Case Is = ""
Application.Goto Reference:="spd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_spd"
End Select
End If


'Part4 spd
If Target.Address = "$H$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_spd"
Case Is = ""
Application.Goto Reference:="spd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_spd"
End Select
End If


'Part1 sksn
If Target.Address = "$E$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_sksn"
Case Is = ""
Application.Goto Reference:="sksn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_sksn"
End Select
End If


'Part2 sksn
If Target.Address = "$F$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_sksn"
Case Is = ""
Application.Goto Reference:="sksn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_sksn"
End Select
End If


'Part3 sksn
If Target.Address = "$G$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_sksn"
Case Is = ""
Application.Goto Reference:="sksn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_sksn"
End Select
End If


'Part4 sksn
If Target.Address = "$H$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_sksn"
Case Is = ""
Application.Goto Reference:="sksn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_sksn"
End Select
End If


'Part1 stn
If Target.Address = "$E$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_stn"
Case Is = ""
Application.Goto Reference:="stn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_stn"
End Select
End If


'Part2 stn
If Target.Address = "$F$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_stn"
Case Is = ""
Application.Goto Reference:="stn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_stn"
End Select
End If


'Part3 stn
If Target.Address = "$G$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_stn"
Case Is = ""
Application.Goto Reference:="stn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_stn"
End Select
End If


'Part4 stn
If Target.Address = "$H$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_stn"
Case Is = ""
Application.Goto Reference:="stn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_stn"
End Select
End If


'Part1 ein
If Target.Address = "$E$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ein"
Case Is = ""
Application.Goto Reference:="ein_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ein"
End Select
End If


'Part2 ein
If Target.Address = "$F$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ein"
Case Is = ""
Application.Goto Reference:="ein_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ein"
End Select
End If


'Part3 ein
If Target.Address = "$G$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ein"
Case Is = ""
Application.Goto Reference:="ein_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ein"
End Select
End If


'Part4 ein
If Target.Address = "$H$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ein"
Case Is = ""
Application.Goto Reference:="ein_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ein"
End Select
End If


'Part1 wqh
If Target.Address = "$E$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wqh"
Case Is = ""
Application.Goto Reference:="wqh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wqh"
End Select
End If


'Part2 wqh
If Target.Address = "$F$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wqh"
Case Is = ""
Application.Goto Reference:="wqh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wqh"
End Select
End If


'Part3 wqh
If Target.Address = "$G$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wqh"
Case Is = ""
Application.Goto Reference:="wqh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wqh"
End Select
End If


'Part4 wqh
If Target.Address = "$H$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wqh"
Case Is = ""
Application.Goto Reference:="wqh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wqh"
End Select
End If


'Part1 wqn
If Target.Address = "$E$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wqn"
Case Is = ""
Application.Goto Reference:="wqn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wqn"
End Select
End If


'Part2 wqn
If Target.Address = "$F$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wqn"
Case Is = ""
Application.Goto Reference:="wqn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wqn"
End Select
End If


'Part3 wqn
If Target.Address = "$G$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wqn"
Case Is = ""
Application.Goto Reference:="wqn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wqn"
End Select
End If


'Part4 wqn
If Target.Address = "$H$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wqn"
Case Is = ""
Application.Goto Reference:="wqn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wqn"
End Select
End If


'Part1 wdsh
If Target.Address = "$E$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wdsh"
End Select
End If


'Part2 wdsh
If Target.Address = "$F$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wdsh"
End Select
End If


'Part3 wdsh
If Target.Address = "$G$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wdsh"
End Select
End If


'Part4 wdsh
If Target.Address = "$H$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wdsh"
End Select
End If


'Part1 wdsn
If Target.Address = "$E$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wdsn"
End Select
End If


'Part2 wdsn
If Target.Address = "$F$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wdsn"
End Select
End If


'Part3 wdsn
If Target.Address = "$G$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wdsn"
End Select
End If


'Part4 wdsn
If Target.Address = "$H$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wdsn"
End Select
End If
End If
End If
End Sub
 
Upvote 0
I never like posters loading their workbooks to a online site and then asking me to look at their workbook.

I would prefer you tell me in words what your trying to do.
Say something like if any value in a range changes to >0 do this.
Or if it changes to "" or is empty do this.
 
Upvote 0
This is a lot of code for sure.
You should never need to do this.

Tell me in words what your trying to do.




jtatt said:
Thank you for your responses
There are around 800 rows of code which is why I tried to split into 2 change events

If I edit my code to reduce it I am not sure if it will make it small enough for 1 event

below is all my code
The second split, without event name for second event (after the event for row 37 "flon")

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E6:H37")) Is Nothing Then


'Part1 cbdn
If Target.Address = "$E$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cbdn"
End Select
End If


'Part2 cbdn
If Target.Address = "$F$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cbdn"
End Select
End If


'Part3 cbdn
If Target.Address = "$G$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cbdn"
End Select
End If


'Part4 cbdn
If Target.Address = "$H$6" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cbdn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cbdn"
Case Is = ""
Application.Goto Reference:="cbdn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cbdn"
End Select
End If


'Part1 cmn
If Target.Address = "$E$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cmn"
Case Is = ""
Application.Goto Reference:="cmn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cmn"
End Select
End If


'Part2 cmn
If Target.Address = "$F$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cmn"
Case Is = ""
Application.Goto Reference:="cmn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cmn"
End Select
End If




'Part3 cmn
If Target.Address = "$G$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cmn"
Case Is = ""
Application.Goto Reference:="cmn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cmn"
End Select
End If


'Part4 cmn
If Target.Address = "$H$7" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cmn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cmn"
Case Is = ""
Application.Goto Reference:="cmn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cmn"
End Select
End If


'Part1 efd
If Target.Address = "$E$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_efd"
Case Is = ""
Application.Goto Reference:="efd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_efd"
End Select
End If


'Part2 efd
If Target.Address = "$F$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_efd"
Case Is = ""
Application.Goto Reference:="efd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_efd"
End Select
End If




'Part3 efd
If Target.Address = "$G$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_efd"
Case Is = ""
Application.Goto Reference:="efd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_efd"
End Select
End If


'Part4 efd
If Target.Address = "$H$8" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="efd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_efd"
Case Is = ""
Application.Goto Reference:="efd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_efd"
End Select
End If




'Part1 etw
If Target.Address = "$E$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_etw"
Case Is = ""
Application.Goto Reference:="etw_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_etw"
End Select
End If


'Part2 etw
If Target.Address = "$F$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_etw"
Case Is = ""
Application.Goto Reference:="etw_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_etw"
End Select
End If


'Part3 etw
If Target.Address = "$G$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_etw"
Case Is = ""
Application.Goto Reference:="etw_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_etw"
End Select
End If


'Part4 etw
If Target.Address = "$H$9" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="etw_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_etw"
Case Is = ""
Application.Goto Reference:="etw_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_etw"
End Select
End If


'Part1 ecs
If Target.Address = "$E$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ecs"
Case Is = ""
Application.Goto Reference:="ecs_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ecs"
End Select
End If


'Part2 ecs
If Target.Address = "$F$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ecs"
Case Is = ""
Application.Goto Reference:="ecs_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ecs"
End Select
End If


'Part3 ecs
If Target.Address = "$G$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ecs"
Case Is = ""
Application.Goto Reference:="ecs_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ecs"
End Select
End If


'Part4 ecs
If Target.Address = "$H$10" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ecs_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ecs"
Case Is = ""
Application.Goto Reference:="ecs_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ecs"
End Select
End If


'Part1 eog
If Target.Address = "$E$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_eog"
Case Is = ""
Application.Goto Reference:="eog_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_eog"
End Select
End If


'Part2 eog
If Target.Address = "$F$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_eog"
Case Is = ""
Application.Goto Reference:="eog_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_eog"
End Select
End If


'Part3 eog
If Target.Address = "$G$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_eog"
Case Is = ""
Application.Goto Reference:="eog_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_eog"
End Select
End If


'Part4 eog
If Target.Address = "$H$11" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eog_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_eog"
Case Is = ""
Application.Goto Reference:="eog_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_eog"
End Select
End If


'Part1 can
If Target.Address = "$E$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_can"
Case Is = ""
Application.Goto Reference:="can_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_can"
End Select
End If


'Part2 can
If Target.Address = "$F$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_can"
Case Is = ""
Application.Goto Reference:="can_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_can"
End Select
End If


'Part3 can
If Target.Address = "$G$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_can"
Case Is = ""
Application.Goto Reference:="can_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_can"
End Select
End If


'Part4 can
If Target.Address = "$H$12" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="can_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_can"
Case Is = ""
Application.Goto Reference:="can_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_can"
End Select
End If




'Part1 cak
If Target.Address = "$E$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cak"
Case Is = ""
Application.Goto Reference:="cak_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cak"
End Select
End If


'Part2 cak
If Target.Address = "$F$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cak"
Case Is = ""
Application.Goto Reference:="cak_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cak"
End Select
End If


'Part3 cak
If Target.Address = "$G$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cak"
Case Is = ""
Application.Goto Reference:="cak_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cak"
End Select
End If


'Part4 cak
If Target.Address = "$H$13" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cak_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cak"
Case Is = ""
Application.Goto Reference:="cak_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cak"
End Select
End If


'Part1 cah
If Target.Address = "$E$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cah"
Case Is = ""
Application.Goto Reference:="cah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cah"
End Select
End If


'Part2 cah
If Target.Address = "$F$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cah"
Case Is = ""
Application.Goto Reference:="cah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cah"
End Select
End If


'Part3 cah
If Target.Address = "$G$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cah"
Case Is = ""
Application.Goto Reference:="cah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cah"
End Select
End If


'Part4 cah
If Target.Address = "$H$14" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cah"
Case Is = ""
Application.Goto Reference:="cah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cah"
End Select
End If


'Part1 cpi
If Target.Address = "$E$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cpi"
Case Is = ""
Application.Goto Reference:="cpi_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cpi"
End Select
End If


'Part2 cpi
If Target.Address = "$F$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cpi"
Case Is = ""
Application.Goto Reference:="cpi_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cpi"
End Select
End If


'Part3 cpi
If Target.Address = "$G$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cpi"
Case Is = ""
Application.Goto Reference:="cpi_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cpi"
End Select
End If


'Part4 cpi
If Target.Address = "$H$15" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpi_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cpi"
Case Is = ""
Application.Goto Reference:="cpi_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cpi"
End Select
End If


'Part1 cpf
If Target.Address = "$E$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_cpf"
Case Is = ""
Application.Goto Reference:="cpf_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_cpf"
End Select
End If


'Part2 cpf
If Target.Address = "$F$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_cpf"
Case Is = ""
Application.Goto Reference:="cpf_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_cpf"
End Select
End If


'Part3 cpf
If Target.Address = "$G$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_cpf"
Case Is = ""
Application.Goto Reference:="cpf_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_cpf"
End Select
End If


'Part4 cpf
If Target.Address = "$H$16" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="cpf_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_cpf"
Case Is = ""
Application.Goto Reference:="cpf_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_cpf"
End Select
End If


'Part1 drh
If Target.Address = "$E$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_drh"
Case Is = ""
Application.Goto Reference:="drh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_drh"
End Select
End If


'Part2 drh
If Target.Address = "$F$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_drh"
Case Is = ""
Application.Goto Reference:="drh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_drh"
End Select
End If


'Part3 drh
If Target.Address = "$G$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_drh"
Case Is = ""
Application.Goto Reference:="drh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_drh"
End Select
End If


'Part4 drh
If Target.Address = "$H$17" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="drh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_drh"
Case Is = ""
Application.Goto Reference:="drh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_drh"
End Select
End If


'Part1 dsn
If Target.Address = "$E$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_dsn"
Case Is = ""
Application.Goto Reference:="dsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_dsn"
End Select
End If


'Part2 dsn
If Target.Address = "$F$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_dsn"
Case Is = ""
Application.Goto Reference:="dsn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_dsn"
End Select
End If


'Part3 dsn
If Target.Address = "$G$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_dsn"
Case Is = ""
Application.Goto Reference:="dsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_dsn"
End Select
End If


'Part4 dsn
If Target.Address = "$H$18" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_dsn"
Case Is = ""
Application.Goto Reference:="dsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_dsn"
End Select
End If
'Copy a part1 to complete new part 1, 2 for 2,etc
'4 parts for each row
'T1 column E, T2 col F, T3 col G, T4 col H
'each section commences "If Target"
'Then Select Case and Case>0, etc
'Ends with End Select AND End If


'bulk copy from here, 51 times then edit group by grp
'MUST END WITH END SUB


'Part1 dsh
If Target.Address = "$E$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_dsh"
Case Is = ""
Application.Goto Reference:="dsh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_dsh"
End Select
End If


'Part2 dsh
If Target.Address = "$F$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_dsh"
Case Is = ""
Application.Goto Reference:="dsh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_dsh"
End Select
End If


'Part3 dsh
If Target.Address = "$G$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_dsh"
Case Is = ""
Application.Goto Reference:="dsh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_dsh"
End Select
End If


'Part4 dsh
If Target.Address = "$H$19" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="dsh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_dsh"
Case Is = ""
Application.Goto Reference:="dsh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_dsh"
End Select
End If


'Part1 emh
If Target.Address = "$E$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emh"
Case Is = ""
Application.Goto Reference:="emh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emh"
End Select
End If


'Part2 emh
If Target.Address = "$F$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emh"
Case Is = ""
Application.Goto Reference:="emh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emh"
End Select
End If


'Part3 emh
If Target.Address = "$G$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emh"
Case Is = ""
Application.Goto Reference:="emh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emh"
End Select
End If


'Part4 emh
If Target.Address = "$H$20" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emh"
Case Is = ""
Application.Goto Reference:="emh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emh"
End Select
End If


'Part1 emk
If Target.Address = "$E$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emk"
Case Is = ""
Application.Goto Reference:="emk_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emk"
End Select
End If


'Part2 emk
If Target.Address = "$F$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emk"
Case Is = ""
Application.Goto Reference:="emk_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emk"
End Select
End If


'Part3 emk
If Target.Address = "$G$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emk"
Case Is = ""
Application.Goto Reference:="emk_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emk"
End Select
End If


'Part4 emk
If Target.Address = "$H$21" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emk_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emk"
Case Is = ""
Application.Goto Reference:="emk_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emk"
End Select
End If


'Part1 eman
If Target.Address = "$E$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_eman"
Case Is = ""
Application.Goto Reference:="eman_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_eman"
End Select
End If


'Part2 eman
If Target.Address = "$F$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_eman"
Case Is = ""
Application.Goto Reference:="eman_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_eman"
End Select
End If


'Part3 eman
If Target.Address = "$G$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_eman"
Case Is = ""
Application.Goto Reference:="eman_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_eman"
End Select
End If


'Part4 eman
If Target.Address = "$H$22" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="eman_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_eman"
Case Is = ""
Application.Goto Reference:="eman_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_eman"
End Select
End If


'Part1 emah
If Target.Address = "$E$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emah"
Case Is = ""
Application.Goto Reference:="emah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emah"
End Select
End If


'Part2 emah
If Target.Address = "$F$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emah"
Case Is = ""
Application.Goto Reference:="emah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emah"
End Select
End If


'Part3 emah
If Target.Address = "$G$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emah"
Case Is = ""
Application.Goto Reference:="emah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emah"
End Select
End If


'Part4 emah
If Target.Address = "$H$23" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emah"
Case Is = ""
Application.Goto Reference:="emah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emah"
End Select
End If


'Part1 emad
If Target.Address = "$E$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emad"
Case Is = ""
Application.Goto Reference:="emad_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emad"
End Select
End If


'Part2 emad
If Target.Address = "$F$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emad"
Case Is = ""
Application.Goto Reference:="emad_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emad"
End Select
End If


'Part3 emad
If Target.Address = "$G$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emad"
Case Is = ""
Application.Goto Reference:="emad_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emad"
End Select
End If


'Part4 emad
If Target.Address = "$H$24" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emad_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emad"
Case Is = ""
Application.Goto Reference:="emad_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emad"
End Select
End If


'Part1 ffn
If Target.Address = "$E$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ffn"
Case Is = ""
Application.Goto Reference:="ffn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ffn"
End Select
End If


'Part2 ffn
If Target.Address = "$F$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ffn"
Case Is = ""
Application.Goto Reference:="ffn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ffn"
End Select
End If


'Part3 ffn
If Target.Address = "$G$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ffn"
Case Is = ""
Application.Goto Reference:="ffn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ffn"
End Select
End If


'Part4 ffn
If Target.Address = "$H$25" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ffn"
Case Is = ""
Application.Goto Reference:="ffn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ffn"
End Select
End If


'Part1 ffh
If Target.Address = "$E$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ffh"
Case Is = ""
Application.Goto Reference:="ffh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ffh"
End Select
End If


'Part2 ffh
If Target.Address = "$F$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ffh"
Case Is = ""
Application.Goto Reference:="ffh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ffh"
End Select
End If


'Part3 ffh
If Target.Address = "$G$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ffh"
Case Is = ""
Application.Goto Reference:="ffh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ffh"
End Select
End If


'Part4 ffh
If Target.Address = "$H$26" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ffh"
Case Is = ""
Application.Goto Reference:="ffh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ffh"
End Select
End If


'Part1 ffd
If Target.Address = "$E$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ffd"
Case Is = ""
Application.Goto Reference:="ffd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ffd"
End Select
End If


'Part2 ffd
If Target.Address = "$F$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ffd"
Case Is = ""
Application.Goto Reference:="ffd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ffd"
End Select
End If


'Part3 ffd
If Target.Address = "$G$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ffd"
Case Is = ""
Application.Goto Reference:="ffd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ffd"
End Select
End If


'Part4 ffd
If Target.Address = "$H$27" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ffd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ffd"
Case Is = ""
Application.Goto Reference:="ffd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ffd"
End Select
End If


'Part1 ebpn
If Target.Address = "$E$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ebpn"
End Select
End If


'Part2 ebpn
If Target.Address = "$F$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ebpn"
End Select
End If


'Part3 ebpn
If Target.Address = "$G$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ebpn"
End Select
End If


'Part4 ebpn
If Target.Address = "$H$28" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ebpn"
Case Is = ""
Application.Goto Reference:="ebpn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ebpn"
End Select
End If


'Part1 ebpd
If Target.Address = "$E$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ebpd"
End Select
End If


'Part2 ebpd
If Target.Address = "$F$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ebpd"
End Select
End If


'Part3 ebpd
If Target.Address = "$G$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ebpd"
End Select
End If


'Part4 ebpd
If Target.Address = "$H$29" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ebpd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ebpd"
Case Is = ""
Application.Goto Reference:="ebpd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ebpd"
End Select
End If


'Part1 emrn
If Target.Address = "$E$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emrn"
Case Is = ""
Application.Goto Reference:="emrn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emrn"
End Select
End If


'Part2 emrn
If Target.Address = "$F$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emrn"
Case Is = ""
Application.Goto Reference:="emrn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emrn"
End Select
End If


'Part3 emrn
If Target.Address = "$G$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emrn"
Case Is = ""
Application.Goto Reference:="emrn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emrn"
End Select
End If


'Part4 emrn
If Target.Address = "$H$30" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emrn"
Case Is = ""
Application.Goto Reference:="emrn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emrn"
End Select
End If


'Part1 emrd
If Target.Address = "$E$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_emrd"
Case Is = ""
Application.Goto Reference:="emrd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_emrd"
End Select
End If


'Part2 emrd
If Target.Address = "$F$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_emrd"
Case Is = ""
Application.Goto Reference:="emrd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_emrd"
End Select
End If


'Part3 emrd
If Target.Address = "$G$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_emrd"
Case Is = ""
Application.Goto Reference:="emrd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_emrd"
End Select
End If


'Part4 emrd
If Target.Address = "$H$31" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="emrd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_emrd"
Case Is = ""
Application.Goto Reference:="emrd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_emrd"
End Select
End If


'Part1 fmsn
If Target.Address = "$E$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_fmsn"
End Select
End If


'Part2 fmsn
If Target.Address = "$F$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_fmsn"
End Select
End If


'Part3 fmsn
If Target.Address = "$G$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_fmsn"
End Select
End If


'Part4 fmsn
If Target.Address = "$H$32" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_fmsn"
Case Is = ""
Application.Goto Reference:="fmsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_fmsn"
End Select
End If


'Part1 faun
If Target.Address = "$E$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_faun"
Case Is = ""
Application.Goto Reference:="faun_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_faun"
End Select
End If


'Part2 faun
If Target.Address = "$F$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_faun"
Case Is = ""
Application.Goto Reference:="faun_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_faun"
End Select
End If


'Part3 faun
If Target.Address = "$G$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_faun"
Case Is = ""
Application.Goto Reference:="faun_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_faun"
End Select
End If


'Part4 faun
If Target.Address = "$H$33" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="faun_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_faun"
Case Is = ""
Application.Goto Reference:="faun_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_faun"
End Select
End If


'Part1 fauh
If Target.Address = "$E$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_fauh"
Case Is = ""
Application.Goto Reference:="fauh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_fauh"
End Select
End If


'Part2 fauh
If Target.Address = "$F$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_fauh"
Case Is = ""
Application.Goto Reference:="fauh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_fauh"
End Select
End If


'Part3 fauh
If Target.Address = "$G$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_fauh"
Case Is = ""
Application.Goto Reference:="fauh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_fauh"
End Select
End If


'Part4 fauh
If Target.Address = "$H$34" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fauh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_fauh"
Case Is = ""
Application.Goto Reference:="fauh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_fauh"
End Select
End If




'Part1 fmh
If Target.Address = "$E$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_fmh"
Case Is = ""
Application.Goto Reference:="fmh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_fmh"
End Select
End If


'Part2 fmh
If Target.Address = "$F$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_fmh"
Case Is = ""
Application.Goto Reference:="fmh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_fmh"
End Select
End If


'Part3 fmh
If Target.Address = "$G$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_fmh"
Case Is = ""
Application.Goto Reference:="fmh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_fmh"
End Select
End If


'Part4 fmh
If Target.Address = "$H$35" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="fmh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_fmh"
Case Is = ""
Application.Goto Reference:="fmh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_fmh"
End Select
End If


'Part1 floh
If Target.Address = "$E$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_floh"
Case Is = ""
Application.Goto Reference:="floh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_floh"
End Select
End If


'Part2 floh
If Target.Address = "$F$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_floh"
Case Is = ""
Application.Goto Reference:="floh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_floh"
End Select
End If


'Part3 floh
If Target.Address = "$G$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_floh"
Case Is = ""
Application.Goto Reference:="floh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_floh"
End Select
End If


'Part4 floh
If Target.Address = "$H$36" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="floh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_floh"
Case Is = ""
Application.Goto Reference:="floh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_floh"
End Select
End If


'Part1 flon
If Target.Address = "$E$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_flon"
Case Is = ""
Application.Goto Reference:="flon_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_flon"
End Select
End If


'Part2 flon
If Target.Address = "$F$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_flon"
Case Is = ""
Application.Goto Reference:="flon_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_flon"
End Select
End If


'Part3 flon
If Target.Address = "$G$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_flon"
Case Is = ""
Application.Goto Reference:="flon_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_flon"
End Select
End If


'Part4 flon
If Target.Address = "$H$37" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="flon_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_flon"
Case Is = ""
Application.Goto Reference:="flon_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_flon"
End Select
End If






If Not Application.Intersect(Target, Range("E38:H70")) Is Nothing Then


'Part1 hah
If Target.Address = "$E$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_hah"
Case Is = ""
Application.Goto Reference:="hah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_hah"
End Select
End If


'Part2 hah
If Target.Address = "$F$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_hah"
Case Is = ""
Application.Goto Reference:="hah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_hah"
End Select
End If


'Part3 hah
If Target.Address = "$G$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_hah"
Case Is = ""
Application.Goto Reference:="hah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_hah"
End Select
End If


'Part4 hah
If Target.Address = "$H$38" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="hah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_hah"
Case Is = ""
Application.Goto Reference:="hah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_hah"
End Select
End If


'Part1 han
If Target.Address = "$E$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_han"
Case Is = ""
Application.Goto Reference:="han_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_han"
End Select
End If


'Part2 han
If Target.Address = "$F$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_han"
Case Is = ""
Application.Goto Reference:="han_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_han"
End Select
End If


'Part3 han
If Target.Address = "$G$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_han"
Case Is = ""
Application.Goto Reference:="han_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_han"
End Select
End If


'Part4 han
If Target.Address = "$H$39" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="han_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_dhan"
Case Is = ""
Application.Goto Reference:="han_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_han"
End Select
End If


'Part1 ilsn
If Target.Address = "$E$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ilsn"
Case Is = ""
Application.Goto Reference:="ilsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ilsn"
End Select
End If


'Part2 ilsn
If Target.Address = "$F$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ilsn"
Case Is = ""
Application.Goto Reference:="ilsnn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ilsn"
End Select
End If


'Part3 ilsn
If Target.Address = "$G$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ilsn"
Case Is = ""
Application.Goto Reference:="ilsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ilsn"
End Select
End If


'Part4 ilsn
If Target.Address = "$H$40" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ilsn"
Case Is = ""
Application.Goto Reference:="ilsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ilsn"
End Select
End If


'Part1 ihrn
If Target.Address = "$E$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ihrn"
End Select
End If


'Part2 ihrn
If Target.Address = "$F$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ihrn"
End Select
End If


'Part3 ihrn
If Target.Address = "$G$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ihrn"
End Select
End If


'Part4 ihrn
If Target.Address = "$H$41" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ihrn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ihrn"
Case Is = ""
Application.Goto Reference:="ihrn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ihrn"
End Select
End If


'Part1 ilmh
If Target.Address = "$E$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ilmh"
End Select
End If


'Part2 ilmh
If Target.Address = "$F$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ilmh"
End Select
End If


'Part3 ilmh
If Target.Address = "$G$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ilmh"
End Select
End If


'Part4 ilmh
If Target.Address = "$H$42" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ilmh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ilmh"
Case Is = ""
Application.Goto Reference:="ilmh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ilmh"
End Select
End If


'Part1 mdh
If Target.Address = "$E$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_mdh"
Case Is = ""
Application.Goto Reference:="mdh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_mdh"
End Select
End If


'Part2 mdh
If Target.Address = "$F$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_mdh"
Case Is = ""
Application.Goto Reference:="mdh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_mdh"
End Select
End If


'Part3 mdh
If Target.Address = "$G$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_mdh"
Case Is = ""
Application.Goto Reference:="mdh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_mdh"
End Select
End If


'Part4 mdh
If Target.Address = "$H$43" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="mdh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_mdh"
Case Is = ""
Application.Goto Reference:="mdh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_mdh"
End Select
End If


'Part1 negn
If Target.Address = "$E$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_negn"
Case Is = ""
Application.Goto Reference:="negn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_negn"
End Select
End If


'Part2 negn
If Target.Address = "$F$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_negn"
Case Is = ""
Application.Goto Reference:="negn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_negn"
End Select
End If


'Part3 negn
If Target.Address = "$G$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_negn"
Case Is = ""
Application.Goto Reference:="negn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_negn"
End Select
End If


'Part4 negn
If Target.Address = "$H$44" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="negn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_negn"
Case Is = ""
Application.Goto Reference:="negn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_negn"
End Select
End If


'Part1 oan
If Target.Address = "$E$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_oan"
Case Is = ""
Application.Goto Reference:="oan_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_oan"
End Select
End If


'Part2 oan
If Target.Address = "$F$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_oan"
Case Is = ""
Application.Goto Reference:="oan_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_oan"
End Select
End If


'Part3 oan
If Target.Address = "$G$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_oan"
Case Is = ""
Application.Goto Reference:="oan_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_oan"
End Select
End If


'Part4 oan
If Target.Address = "$H$45" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="oan_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_oan"
Case Is = ""
Application.Goto Reference:="oan_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_oan"
End Select
End If


'Part1 pash
If Target.Address = "$E$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pash"
Case Is = ""
Application.Goto Reference:="pash_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pash"
End Select
End If


'Part2 pash
If Target.Address = "$F$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pash"
Case Is = ""
Application.Goto Reference:="pash_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pash"
End Select
End If


'Part3 pash
If Target.Address = "$G$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pash"
Case Is = ""
Application.Goto Reference:="pash_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pash"
End Select
End If


'Part4 pash
If Target.Address = "$H$46" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pash_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pash"
Case Is = ""
Application.Goto Reference:="pash_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pash"
End Select
End If


'Part1 pasn
If Target.Address = "$E$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pasn"
Case Is = ""
Application.Goto Reference:="pasn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pasn"
End Select
End If


'Part2 pasn
If Target.Address = "$F$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pasn"
Case Is = ""
Application.Goto Reference:="pasn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pasn"
End Select
End If


'Part3 pasn
If Target.Address = "$G$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pasn"
Case Is = ""
Application.Goto Reference:="pasn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pasn"
End Select
End If


'Part4 pasn
If Target.Address = "$H$47" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pasn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pasn"
Case Is = ""
Application.Goto Reference:="pasn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pasn"
End Select
End If


'Part1 pssh
If Target.Address = "$E$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pssh"
Case Is = ""
Application.Goto Reference:="pssh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pssh"
End Select
End If


'Part2 pssh
If Target.Address = "$F$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pssh"
Case Is = ""
Application.Goto Reference:="pssh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pssh"
End Select
End If


'Part3 pssh
If Target.Address = "$G$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pssh"
Case Is = ""
Application.Goto Reference:="pssh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pssh"
End Select
End If


'Part4 pssh
If Target.Address = "$H$48" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pssh"
Case Is = ""
Application.Goto Reference:="pssh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pssh"
End Select
End If


'Part1 pssn
If Target.Address = "$E$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_pssn"
Case Is = ""
Application.Goto Reference:="pssn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_pssn"
End Select
End If


'Part2 pssn
If Target.Address = "$F$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_pssn"
Case Is = ""
Application.Goto Reference:="pssn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_pssn"
End Select
End If


'Part3 pssn
If Target.Address = "$G$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_pssn"
Case Is = ""
Application.Goto Reference:="pssn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_pssn"
End Select
End If


'Part4 pssn
If Target.Address = "$H$49" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="pssn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_pssn"
Case Is = ""
Application.Goto Reference:="pssn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_pssn"
End Select
End If


'Part1 projn
If Target.Address = "$E$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_projn"
Case Is = ""
Application.Goto Reference:="projn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_projn"
End Select
End If


'Part2 projn
If Target.Address = "$F$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_projn"
Case Is = ""
Application.Goto Reference:="projn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_projn"
End Select
End If


'Part3 projn
If Target.Address = "$G$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_projn"
Case Is = ""
Application.Goto Reference:="projn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_projn"
End Select
End If


'Part4 projn
If Target.Address = "$H$50" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_projn"
Case Is = ""
Application.Goto Reference:="projn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_projn"
End Select
End If


'Part1 projd
If Target.Address = "$E$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_projd"
Case Is = ""
Application.Goto Reference:="projd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_projd"
End Select
End If


'Part2 projd
If Target.Address = "$F$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_projd"
Case Is = ""
Application.Goto Reference:="projd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_projd"
End Select
End If


'Part3 projd
If Target.Address = "$G$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_projd"
Case Is = ""
Application.Goto Reference:="projd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_projd"
End Select
End If


'Part4 projd
If Target.Address = "$H$51" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="projd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_projd"
Case Is = ""
Application.Goto Reference:="projd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_projd"
End Select
End If


'Part1 rrah
If Target.Address = "$E$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rrah"
Case Is = ""
Application.Goto Reference:="rrah_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rrah"
End Select
End If


'Part2 rrah
If Target.Address = "$F$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rrah"
Case Is = ""
Application.Goto Reference:="rrah_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rrah"
End Select
End If


'Part3 rrah
If Target.Address = "$G$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rrah"
Case Is = ""
Application.Goto Reference:="rrah_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rrah"
End Select
End If


'Part4 rrah
If Target.Address = "$H$52" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rrah_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rrah"
Case Is = ""
Application.Goto Reference:="rrah_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rrah"
End Select
End If


'Part1 rran
If Target.Address = "$E$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rran"
Case Is = ""
Application.Goto Reference:="rran_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rran"
End Select
End If


'Part2 rran
If Target.Address = "$F$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rran"
Case Is = ""
Application.Goto Reference:="rran_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rran"
End Select
End If


'Part3 rran
If Target.Address = "$G$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rran"
Case Is = ""
Application.Goto Reference:="rran_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rran"
End Select
End If


'Part4 rran
If Target.Address = "$H$53" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rran_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rran"
Case Is = ""
Application.Goto Reference:="rran_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rran"
End Select
End If


'Part1 rwih
If Target.Address = "$E$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwih"
Case Is = ""
Application.Goto Reference:="rwih_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwih"
End Select
End If


'Part2 rwih
If Target.Address = "$F$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwih"
Case Is = ""
Application.Goto Reference:="rwih_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwih"
End Select
End If


'Part3 rwih
If Target.Address = "$G$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwih"
Case Is = ""
Application.Goto Reference:="rwih_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwih"
End Select
End If


'Part4 rwih
If Target.Address = "$H$54" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwih_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwih"
Case Is = ""
Application.Goto Reference:="rwih_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwih"
End Select
End If


'Part1 rwfh
If Target.Address = "$E$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwfh"
End Select
End If


'Part2 rwfh
If Target.Address = "$F$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwfh"
End Select
End If


'Part3 rwfh
If Target.Address = "$G$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwfh"
End Select
End If


'Part4 rwfh
If Target.Address = "$H$55" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwfh"
Case Is = ""
Application.Goto Reference:="rwfh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwfh"
End Select
End If


'Part1 rwik
If Target.Address = "$E$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwik"
Case Is = ""
Application.Goto Reference:="rwik_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwik"
End Select
End If


'Part2 rwik
If Target.Address = "$F$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwik"
Case Is = ""
Application.Goto Reference:="rwik_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwik"
End Select
End If


'Part3 rwik
If Target.Address = "$G$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwik"
Case Is = ""
Application.Goto Reference:="rwik_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwik"
End Select
End If


'Part4 rwik
If Target.Address = "$H$56" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwik_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwik"
Case Is = ""
Application.Goto Reference:="rwik_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwik"
End Select
End If


'Part1 rwfk
If Target.Address = "$E$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rwfk"
End Select
End If


'Part2 rwfk
If Target.Address = "$F$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rwfk"
End Select
End If


'Part3 rwfk
If Target.Address = "$G$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rwfk"
End Select
End If


'Part4 rwfk
If Target.Address = "$H$57" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rwfk_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rwfk"
Case Is = ""
Application.Goto Reference:="rwfk_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rwfk"
End Select
End If


'Part1 rhh
If Target.Address = "$E$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhh"
Case Is = ""
Application.Goto Reference:="rhh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhh"
End Select
End If


'Part2 rhh
If Target.Address = "$F$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhh"
Case Is = ""
Application.Goto Reference:="rhh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhh"
End Select
End If


'Part3 rhh
If Target.Address = "$G$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhh"
Case Is = ""
Application.Goto Reference:="rhh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhh"
End Select
End If


'Part4 rhh
If Target.Address = "$H$58" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhh"
Case Is = ""
Application.Goto Reference:="rhh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhh"
End Select
End If


'Part1 rhhm
If Target.Address = "$E$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhhm"
End Select
End If


'Part2 rhhm
If Target.Address = "$F$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhhm"
End Select
End If


'Part3 rhhm
If Target.Address = "$G$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhhm"
End Select
End If


'Part4 rhhm
If Target.Address = "$H$59" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhhm_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhhm"
Case Is = ""
Application.Goto Reference:="rhhm_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhhm"
End Select
End If


'Part1 rhdc
If Target.Address = "$E$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhdc"
End Select
End If


'Part2 rhdc
If Target.Address = "$F$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhdc"
End Select
End If


'Part3 rhdc
If Target.Address = "$G$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhdc"
End Select
End If


'Part4 rhdc
If Target.Address = "$H$60" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdc_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhdc"
Case Is = ""
Application.Goto Reference:="rhdc_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhdc"
End Select
End If


'Part1 rhdp
If Target.Address = "$E$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_rhdp"
End Select
End If


'Part2 rhdp
If Target.Address = "$F$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_rhdp"
End Select
End If


'Part3 rhdp
If Target.Address = "$G$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_rhdp"
End Select
End If


'Part4 rhdp
If Target.Address = "$H$61" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="rhdp_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_rhdp"
Case Is = ""
Application.Goto Reference:="rhdp_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_rhdp"
End Select
End If


'Part1 sph
If Target.Address = "$E$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_sph"
Case Is = ""
Application.Goto Reference:="sph_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_sph"
End Select
End If


'Part2 sph
If Target.Address = "$F$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_sph"
Case Is = ""
Application.Goto Reference:="sph_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_sph"
End Select
End If


'Part3 sph
If Target.Address = "$G$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_sph"
Case Is = ""
Application.Goto Reference:="sph_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_sph"
End Select
End If


'Part4 sph
If Target.Address = "$H$62" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sph_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_sph"
Case Is = ""
Application.Goto Reference:="sph_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_sph"
End Select
End If


'Part1 spd
If Target.Address = "$E$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_spd"
Case Is = ""
Application.Goto Reference:="spd_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_spd"
End Select
End If


'Part2 spd
If Target.Address = "$F$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_spd"
Case Is = ""
Application.Goto Reference:="spd_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_spd"
End Select
End If


'Part3 spd
If Target.Address = "$G$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_spd"
Case Is = ""
Application.Goto Reference:="spd_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_spd"
End Select
End If


'Part4 spd
If Target.Address = "$H$63" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="spd_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_spd"
Case Is = ""
Application.Goto Reference:="spd_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_spd"
End Select
End If


'Part1 sksn
If Target.Address = "$E$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_sksn"
Case Is = ""
Application.Goto Reference:="sksn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_sksn"
End Select
End If


'Part2 sksn
If Target.Address = "$F$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_sksn"
Case Is = ""
Application.Goto Reference:="sksn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_sksn"
End Select
End If


'Part3 sksn
If Target.Address = "$G$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_sksn"
Case Is = ""
Application.Goto Reference:="sksn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_sksn"
End Select
End If


'Part4 sksn
If Target.Address = "$H$64" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="sksn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_sksn"
Case Is = ""
Application.Goto Reference:="sksn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_sksn"
End Select
End If


'Part1 stn
If Target.Address = "$E$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_stn"
Case Is = ""
Application.Goto Reference:="stn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_stn"
End Select
End If


'Part2 stn
If Target.Address = "$F$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_stn"
Case Is = ""
Application.Goto Reference:="stn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_stn"
End Select
End If


'Part3 stn
If Target.Address = "$G$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_stn"
Case Is = ""
Application.Goto Reference:="stn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_stn"
End Select
End If


'Part4 stn
If Target.Address = "$H$65" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="stn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_stn"
Case Is = ""
Application.Goto Reference:="stn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_stn"
End Select
End If


'Part1 ein
If Target.Address = "$E$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_ein"
Case Is = ""
Application.Goto Reference:="ein_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_ein"
End Select
End If


'Part2 ein
If Target.Address = "$F$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_ein"
Case Is = ""
Application.Goto Reference:="ein_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_ein"
End Select
End If


'Part3 ein
If Target.Address = "$G$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_ein"
Case Is = ""
Application.Goto Reference:="ein_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_ein"
End Select
End If


'Part4 ein
If Target.Address = "$H$66" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="ein_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_ein"
Case Is = ""
Application.Goto Reference:="ein_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_ein"
End Select
End If


'Part1 wqh
If Target.Address = "$E$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wqh"
Case Is = ""
Application.Goto Reference:="wqh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wqh"
End Select
End If


'Part2 wqh
If Target.Address = "$F$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wqh"
Case Is = ""
Application.Goto Reference:="wqh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wqh"
End Select
End If


'Part3 wqh
If Target.Address = "$G$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wqh"
Case Is = ""
Application.Goto Reference:="wqh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wqh"
End Select
End If


'Part4 wqh
If Target.Address = "$H$67" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wqh"
Case Is = ""
Application.Goto Reference:="wqh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wqh"
End Select
End If


'Part1 wqn
If Target.Address = "$E$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wqn"
Case Is = ""
Application.Goto Reference:="wqn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wqn"
End Select
End If


'Part2 wqn
If Target.Address = "$F$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wqn"
Case Is = ""
Application.Goto Reference:="wqn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wqn"
End Select
End If


'Part3 wqn
If Target.Address = "$G$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wqn"
Case Is = ""
Application.Goto Reference:="wqn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wqn"
End Select
End If


'Part4 wqn
If Target.Address = "$H$68" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wqn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wqn"
Case Is = ""
Application.Goto Reference:="wqn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wqn"
End Select
End If


'Part1 wdsh
If Target.Address = "$E$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wdsh"
End Select
End If


'Part2 wdsh
If Target.Address = "$F$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wdsh"
End Select
End If


'Part3 wdsh
If Target.Address = "$G$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wdsh"
End Select
End If


'Part4 wdsh
If Target.Address = "$H$69" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsh_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wdsh"
Case Is = ""
Application.Goto Reference:="wdsh_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wdsh"
End Select
End If


'Part1 wdsn
If Target.Address = "$E$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_1"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T1_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_1"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T1_wdsn"
End Select
End If


'Part2 wdsn
If Target.Address = "$F$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_2"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T2_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_2"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T2_wdsn"
End Select
End If


'Part3 wdsn
If Target.Address = "$G$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_3"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T3_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_3"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T3_wdsn"
End Select
End If


'Part4 wdsn
If Target.Address = "$H$70" Then
Select Case Target.Value
Case Is > 0
Application.Goto Reference:="wdsn_4"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="T4_wdsn"
Case Is = ""
Application.Goto Reference:="wdsn_4"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="T4_wdsn"
End Select
End If
End If
End If
End Sub
Click to expand...
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Question Question
VBA: Multiple SelectionChange Events
Replies
2
Views
180
Micron
M
F
  • Question Question
Deleting table column not counting as a change in range
Replies
2
Views
127
Fudging
F
LuckyDPR
  • Solved
Strange behavior by Worksheet_Change event
Replies
5
Views
327
Joe4
Joe4
SaraWitch
  • Solved
Run Multiple Private Sub Worksheet_Change(ByVal Target As Range)
Replies
5
Views
763
Joe4
Joe4
M
  • Solved
Trying to apply 2 Worksheet Changes
Replies
1
Views
165
Joe4
Joe4

Forum statistics

Threads
1,223,886
Messages
6,175,190
Members
452,616
Latest member
intern444

Share this page

We've detected that you are using an adblocker.

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

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

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

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

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

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

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

Disable uBlock

Follow these easy steps to disable uBlock

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