Undo Won't Work

tlc53 · Jan 12, 2020

Hi there,
The spreadsheet I am working on contains more than 50 sheets and has various VBA code.
I noticed recently that Undo has stopped working and I'm not sure why. Possibly it has something to do with a VBA code, but I wouldn't know where to start. It was running fine for a long time.
For example, if I entered text in a cell and enter, Undo is not option.
Any idea why this is happening and how I can prevent it?
Thanks!

tlc53 · Jan 12, 2020

Michael M said:
Ok, so if you go to file>>options>>Trust Center>>Trust center settings>>Macro settings>>check the disable ALL macros.
Save>>Close>reopen does it work for you ?

I thought disabling the macros would have done the trick but doing this made no difference. The Undo function still remains unavailable. I also unchecked the "Trust access to the VBA project object Model" but this also made no difference. I tried a combination of these two options, saving, closing and reopening each time, but nothing worked.
Below is all the code the Workbook contains but it seems to me, we're trying to find a needle in a haystack!

VBA Code:

Sheet1
Option Explicit

Const Nick_Brown As String = "Nick1"
Const Tessa_Richards As String = "Tessa1"
Const Christina_Hoover As String = "Chris1"
Const Colleen_Marshall As String = "Colleen1"
Const Please_Select As String = "Please"


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim pwd As String
    Dim Oops As Boolean
   
    Oops = True
    For Each cell In Target
        If Not Intersect(cell, Range("P8")) Is Nothing And cell <> "" Then
            pwd = Application.InputBox("Password for " & cell & ":", _
            "Enter Password", Type:=2)
           Select Case cell.Value


'Principal Details
                                  
                 Case "Please Select"
                    If pwd = Please_Select Then
                    Oops = False
                    If Range("S8").Value = "" Then
                    Range("S8").Value = "PS " & Date
                    Else
                    If Left(Range("S8").Value, 2) <> "NB" Then
                    Range("S8").Value = "PS " & Date
                    End If
                    End If
                    End If
                   
                Case "Nick Brown"
                    If pwd = Nick_Brown Then
                    Oops = False
                    If Range("S8").Value = "" Then
                    Range("S8").Value = "NB " & Date
                    Else
                    If Left(Range("S8").Value, 2) <> "NB" Then
                    Range("S8").Value = "NB " & Date
                    End If
                    End If
                    End If
           
                Case "Tessa Richards"
                    If pwd = Tessa_Richards Then
                    Oops = False
                    If Range("S8").Value = "" Then
                    Range("S8").Value = "TR " & Date
                    Else
                    If Left(Range("S8").Value, 2) <> "TR" Then
                    Range("S8").Value = "TR " & Date
                    End If
                    End If
                    End If
           
            End Select
           
            If Oops Then
                MsgBox "Incorrect Password"
                Application.EnableEvents = False
                cell = ""
                Application.EnableEvents = True
            End If
        End If
       
        If Not Intersect(cell, Range("P7")) Is Nothing And cell <> "" Then
            pwd = Application.InputBox("Password for " & cell & ":", _
                "Enter Password", Type:=2)
           
            Select Case cell.Value
           
'Reviewer Details

             Case "Please Select"
                If pwd = Please_Select Then
                Oops = False
                If Range("S7").Value = "" Then
                Range("S7").Value = "PS " & Date
                Else
                If Left(Range("S7").Value, 2) <> "PS" Then
                Range("S7").Value = "PS " & Date
                End If
                End If
                End If
               
            Case "Tessa Richards"
                If pwd = Tessa_Richards Then
                Oops = False
                If Range("S7").Value = "" Then
                Range("S7").Value = "TR " & Date
                Else
                If Left(Range("S7").Value, 2) <> "TR" Then
                Range("S7").Value = "TR " & Date
                End If
                End If
                End If
           
            Case "Christina Hoover"
                If pwd = Christina_Hoover Then
                Oops = False
                If Range("S7").Value = "" Then
                Range("S7").Value = "CH " & Date
                Else
                If Left(Range("S7").Value, 2) <> "NB" Then
                Range("S7").Value = "CH " & Date
                End If
                End If
                End If
           
            Case "Colleen Marshall"
                If pwd = Colleen_Marshall Then
                Oops = False
                If Range("S7").Value = "" Then
                Range("S7").Value = "CM " & Date
                Else
                If Left(Range("S7").Value, 2) <> "NB" Then
                Range("S7").Value = "CM " & Date
                End If
                End If
                End If
           
            End Select
           
            If Oops Then
            MsgBox "Incorrect Password"
            Application.EnableEvents = False
            cell = ""
            Application.EnableEvents = True
            End If
        End If
    Next cell

End Sub



Private Sub A1_Click()

    If Sheets(A1.Caption).Visible = xlHidden Then
    Sheets(A1.Caption).Visible = -1
   
Else
    Sheets(A1.Caption).Visible = xlHidden
   
End If
   
End Sub

Private Sub A2_Click()

    If Sheets(A2.Caption).Visible = xlHidden Then
    Sheets(A2.Caption).Visible = -1
   
Else
    Sheets(A2.Caption).Visible = xlHidden
   
End If
   
End Sub

Private Sub A3_Click()

    If Sheets(A3.Caption).Visible = xlHidden Then
    Sheets(A3.Caption).Visible = -1
   
Else
    Sheets(A3.Caption).Visible = xlHidden
   
End If
   
End Sub

Private Sub A4_Click()

    If Sheets(A4.Caption).Visible = xlHidden Then
    Sheets(A4.Caption).Visible = -1
   
Else
    Sheets(A4.Caption).Visible = xlHidden
   
End If
   
End Sub

Private Sub A5_Click()

    If Sheets(A5.Caption).Visible = xlHidden Then
    Sheets(A5.Caption).Visible = -1
   
Else
    Sheets(A5.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub B1_Click()

    If Sheets(B1.Caption).Visible = xlHidden Then
    Sheets(B1.Caption).Visible = -1
   
Else
    Sheets(B1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub B2_Click()

    If Sheets(b2.Caption).Visible = xlHidden Then
    Sheets(b2.Caption).Visible = -1
   
Else
    Sheets(b2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub C1_Click()

    If Sheets(C1.Caption).Visible = xlHidden Then
    Sheets(C1.Caption).Visible = -1
   
Else
    Sheets(C1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub C2_Click()

    If Sheets(C2.Caption).Visible = xlHidden Then
    Sheets(C2.Caption).Visible = -1
   
Else
    Sheets(C2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub C3_Click()

    If Sheets(C3.Caption).Visible = xlHidden Then
    Sheets(C3.Caption).Visible = -1
   
Else
    Sheets(C3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub D1_Click()

    If Sheets(D1.Caption).Visible = xlHidden Then
    Sheets(D1.Caption).Visible = -1
   
Else
    Sheets(D1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub D2_Click()

    If Sheets(D2.Caption).Visible = xlHidden Then
    Sheets(D2.Caption).Visible = -1
   
Else
    Sheets(D2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub D3_Click()

    If Sheets(D3.Caption).Visible = xlHidden Then
    Sheets(D3.Caption).Visible = -1
   
Else
    Sheets(D3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub D4_Click()

    If Sheets(D4.Caption).Visible = xlHidden Then
    Sheets(D4.Caption).Visible = -1
   
Else
    Sheets(D4.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub D5_Click()

    If Sheets(D5.Caption).Visible = xlHidden Then
    Sheets(D5.Caption).Visible = -1
   
Else
    Sheets(D5.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub E1_Click()

    If Sheets(E1.Caption).Visible = xlHidden Then
    Sheets(E1.Caption).Visible = -1
   
Else
    Sheets(E1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub E2_Click()

    If Sheets(E2.Caption).Visible = xlHidden Then
    Sheets(E2.Caption).Visible = -1
   
Else
    Sheets(E2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub E3_Click()

    If Sheets(E3.Caption).Visible = xlHidden Then
    Sheets(E3.Caption).Visible = -1
   
Else
    Sheets(E3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub E4_Click()

    If Sheets(E4.Caption).Visible = xlHidden Then
    Sheets(E4.Caption).Visible = -1
   
Else
    Sheets(E4.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub E5_Click()

    If Sheets(E5.Caption).Visible = xlHidden Then
    Sheets(E5.Caption).Visible = -1
   
Else
    Sheets(E5.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub E6_Click()

    If Sheets(E6.Caption).Visible = xlHidden Then
    Sheets(E6.Caption).Visible = -1
   
Else
    Sheets(E6.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F1_Click()

    If Sheets(F1.Caption).Visible = xlHidden Then
    Sheets(F1.Caption).Visible = -1
   
Else
    Sheets(F1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F2_Click()

    If Sheets(F2.Caption).Visible = xlHidden Then
    Sheets(F2.Caption).Visible = -1
   
Else
    Sheets(F2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F3_Click()

    If Sheets(F3.Caption).Visible = xlHidden Then
    Sheets(F3.Caption).Visible = -1
   
Else
    Sheets(F3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F4_Click()

    If Sheets(F4.Caption).Visible = xlHidden Then
    Sheets(F4.Caption).Visible = -1
   
Else
    Sheets(F4.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F5_Click()

    If Sheets(F5.Caption).Visible = xlHidden Then
    Sheets(F5.Caption).Visible = -1
   
Else
    Sheets(F5.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F6_Click()

    If Sheets(F6.Caption).Visible = xlHidden Then
    Sheets(F6.Caption).Visible = -1
   
Else
    Sheets(F6.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F7_Click()

    If Sheets(F7.Caption).Visible = xlHidden Then
    Sheets(F7.Caption).Visible = -1
   
Else
    Sheets(F7.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F8_Click()

    If Sheets(F8.Caption).Visible = xlHidden Then
    Sheets(F8.Caption).Visible = -1
   
Else
    Sheets(F8.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F9_Click()

    If Sheets(F9.Caption).Visible = xlHidden Then
    Sheets(F9.Caption).Visible = -1
   
Else
    Sheets(F9.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F10_Click()

    If Sheets(F10.Caption).Visible = xlHidden Then
    Sheets(F10.Caption).Visible = -1
   
Else
    Sheets(F10.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F11_Click()

    If Sheets(F11.Caption).Visible = xlHidden Then
    Sheets(F11.Caption).Visible = -1
   
Else
    Sheets(F11.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub F12_Click()

    If Sheets(F12.Caption).Visible = xlHidden Then
    Sheets(F12.Caption).Visible = -1
   
Else
    Sheets(F12.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub G1_Click()

    If Sheets(G1.Caption).Visible = xlHidden Then
    Sheets(G1.Caption).Visible = -1
   
Else
    Sheets(G1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub G2_Click()

    If Sheets(G2.Caption).Visible = xlHidden Then
    Sheets(G2.Caption).Visible = -1
   
Else
    Sheets(G2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub G3_Click()

    If Sheets(G3.Caption).Visible = xlHidden Then
    Sheets(G3.Caption).Visible = -1
   
Else
    Sheets(G3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub G4_Click()

    If Sheets(G4.Caption).Visible = xlHidden Then
    Sheets(G4.Caption).Visible = -1
   
Else
    Sheets(G4.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub G5_Click()

    If Sheets(G5.Caption).Visible = xlHidden Then
    Sheets(G5.Caption).Visible = -1
   
Else
    Sheets(G5.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub G6_Click()

    If Sheets(G6.Caption).Visible = xlHidden Then
    Sheets(G6.Caption).Visible = -1
   
Else
    Sheets(G6.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub H1_Click()

    If Sheets(H1.Caption).Visible = xlHidden Then
    Sheets(H1.Caption).Visible = -1
   
Else
    Sheets(H1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub H2_Click()

    If Sheets(H2.Caption).Visible = xlHidden Then
    Sheets(H2.Caption).Visible = -1
   
Else
    Sheets(H2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub I1_Click()

    If Sheets(I1.Caption).Visible = xlHidden Then
    Sheets(I1.Caption).Visible = -1
   
Else
    Sheets(I1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub I2_Click()

    If Sheets(I2.Caption).Visible = xlHidden Then
    Sheets(I2.Caption).Visible = -1
   
Else
    Sheets(I2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub I3_Click()

    If Sheets(I3.Caption).Visible = xlHidden Then
    Sheets(I3.Caption).Visible = -1
   
Else
    Sheets(I3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub K1_Click()

    If Sheets(K1.Caption).Visible = xlHidden Then
    Sheets(K1.Caption).Visible = -1
   
Else
    Sheets(K1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub K2_Click()

    If Sheets(K2.Caption).Visible = xlHidden Then
    Sheets(K2.Caption).Visible = -1
   
Else
    Sheets(K2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub L1_Click()

    If Sheets(L1.Caption).Visible = xlHidden Then
    Sheets(L1.Caption).Visible = -1
   
Else
    Sheets(L1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub L2_Click()

    If Sheets(L2.Caption).Visible = xlHidden Then
    Sheets(L2.Caption).Visible = -1
   
Else
    Sheets(L2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub L3_Click()

    If Sheets(L3.Caption).Visible = xlHidden Then
    Sheets(L3.Caption).Visible = -1
   
Else
    Sheets(L3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub M1_Click()

    If Sheets(M1.Caption).Visible = xlHidden Then
    Sheets(M1.Caption).Visible = -1
   
Else
    Sheets(M1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub M2_Click()

    If Sheets(M2.Caption).Visible = xlHidden Then
    Sheets(M2.Caption).Visible = -1
   
Else
    Sheets(M2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub O1_Click()

    If Sheets(O1.Caption).Visible = xlHidden Then
    Sheets(O1.Caption).Visible = -1
   
Else
    Sheets(O1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub O2_Click()

    If Sheets(O2.Caption).Visible = xlHidden Then
    Sheets(O2.Caption).Visible = -1
   
Else
    Sheets(O2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub O3_Click()

    If Sheets(O3.Caption).Visible = xlHidden Then
    Sheets(O3.Caption).Visible = -1
   
Else
    Sheets(O3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub O4_Click()

    If Sheets(O4.Caption).Visible = xlHidden Then
    Sheets(O4.Caption).Visible = -1
   
Else
    Sheets(O4.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub O5_Click()

    If Sheets(O5.Caption).Visible = xlHidden Then
    Sheets(O5.Caption).Visible = -1
   
Else
    Sheets(O5.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub O6_Click()

    If Sheets(O6.Caption).Visible = xlHidden Then
    Sheets(O6.Caption).Visible = -1
   
Else
    Sheets(O6.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub P1_Click()

    If Sheets(P1.Caption).Visible = xlHidden Then
    Sheets(P1.Caption).Visible = -1
   
Else
    Sheets(P1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub P2_Click()

    If Sheets(P2.Caption).Visible = xlHidden Then
    Sheets(P2.Caption).Visible = -1
   
Else
    Sheets(P2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub Q1_Click()

    If Sheets(Q1.Caption).Visible = xlHidden Then
    Sheets(Q1.Caption).Visible = -1
   
Else
    Sheets(Q1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub Q2_Click()

    If Sheets(Q2.Caption).Visible = xlHidden Then
    Sheets(Q2.Caption).Visible = -1
   
Else
    Sheets(Q2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub Q3_Click()

    If Sheets(Q3.Caption).Visible = xlHidden Then
    Sheets(Q3.Caption).Visible = -1
   
Else
    Sheets(Q3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub R1_Click()

    If Sheets(R1.Caption).Visible = xlHidden Then
    Sheets(R1.Caption).Visible = -1
   
Else
    Sheets(R1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub R2_Click()

    If Sheets(R2.Caption).Visible = xlHidden Then
    Sheets(R2.Caption).Visible = -1
   
Else
    Sheets(R2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub S1_Click()

    If Sheets(S1.Caption).Visible = xlHidden Then
    Sheets(S1.Caption).Visible = -1
   
Else
    Sheets(S1.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub S2_Click()

    If Sheets(S2.Caption).Visible = xlHidden Then
    Sheets(S2.Caption).Visible = -1
   
Else
    Sheets(S2.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub S3_Click()

    If Sheets(S3.Caption).Visible = xlHidden Then
    Sheets(S3.Caption).Visible = -1
   
Else
    Sheets(S3.Caption).Visible = xlHidden
   
End If
   
End Sub


Private Sub S4_Click()

    If Sheets(S4.Caption).Visible = xlHidden Then
    Sheets(S4.Caption).Visible = -1
   
Else
    Sheets(S4.Caption).Visible = xlHidden
   
End If
   
End Sub

Sheet11
Private Sub btnEditM1_Click()
    frmReviewed.Show
   
End Sub

Sheet14

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B16:B31])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet15


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [C46:C81,C104:C139])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sub GST_Run_All()
With Sheet81
.GST_User_Input
.GST_Hide1
.GST_Hide2
End With
PDFActiveSheetTAXDISC
End Sub

Sheet16

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B18:B33])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub


Sheet17

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B18:B33])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub


Sheet18

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B18:B33])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub


Sheet19

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B18:B113")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(224).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
        If Not Intersect(Target, Range("B123:B218")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(219).EntireRow.Hidden = Target.EntireRow.Hidden
    End If

End Sub

Sheet20
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B17:B62")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(63).EntireRow.Hidden = Target.EntireRow.Hidden
    End If

End Sub

Sheet22
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L1_Purchase")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "NO", Is = "Please Select"
        Range("141:246").EntireRow.Hidden = True
 
    Case "YES"
        Range("141:246").EntireRow.Hidden = False
    
   End Select
   End If
  
If Not Intersect(Target, Range("L1_Sale")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "NO", Is = "Please Select"
        Range("247:352").EntireRow.Hidden = True
 
    Case "YES"
        Range("247:352").EntireRow.Hidden = False
    
   End Select
   End If
  
If Not Intersect(Target, Range("L1_Breakdown")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "No.1", Is = "No.2"
        Range("353:368").EntireRow.Hidden = False

    Case Is = "No.3", Is = "No.4"
        Range("369:384").EntireRow.Hidden = False
       
    Case Is = "No.5", Is = "No.6"
        Range("385:400").EntireRow.Hidden = False
    
    Case Is = "No.7", Is = "No.8"
        Range("401:416").EntireRow.Hidden = False
    
    Case Is = "No.9", Is = "No.10"
        Range("417:432").EntireRow.Hidden = False
   
   End Select
   End If
  
Dim rng As Range
Set rng = Intersect(Target, [B19:B64,B84:B129])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False


  
   End Sub

Sheet24
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D8_No._Loans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = "0"
        Range("11:85,88:97").EntireRow.Hidden = True
   
    Case 1
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("26:85,89:97").EntireRow.Hidden = True
    Case 2
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("26:85,90:97").EntireRow.Hidden = True
    Case 3
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("41:85,91:97").EntireRow.Hidden = True
    Case 4
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("41:85,92:97").EntireRow.Hidden = True
    Case 5
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("56:85,93:97").EntireRow.Hidden = True
    Case 6
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("56:85,94:97").EntireRow.Hidden = True
    Case 7
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("71:85,95:97").EntireRow.Hidden = True
    Case 8
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("71:85,96:97").EntireRow.Hidden = True
    Case 9
        Range("11:85,88:97").EntireRow.Hidden = False
        Range("97:97").EntireRow.Hidden = True
    Case 10
        Range("11:85,88:97").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub



Sheet25
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q2_HPs")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("11:270,272:291,306:347").EntireRow.Hidden = True
    Case 1
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("37:270,273:291,310:347").EntireRow.Hidden = True
    Case 2
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("37:270,274:291,312:347").EntireRow.Hidden = True
    Case 3
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("63:270,275:291,314:347").EntireRow.Hidden = True
    Case 4
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("63:270,276:291,316:347").EntireRow.Hidden = True
    Case 5
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("89:270,277:291,318:347").EntireRow.Hidden = True
    Case 6
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("89:270,278:291,320:347").EntireRow.Hidden = True
    Case 7
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("115:270,279:291,322:347").EntireRow.Hidden = True
    Case 8
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("115:270,280:291,324:347").EntireRow.Hidden = True
    Case 9
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("141:270,281:291,326:347").EntireRow.Hidden = True
    Case 10
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("141:270,282:291,328:347").EntireRow.Hidden = True
    Case 11
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("167:270,283:291,330:347").EntireRow.Hidden = True
    Case 12
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("167:270,284:291,332:347").EntireRow.Hidden = True
    Case 13
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("193:270,285:291,334:347").EntireRow.Hidden = True
    Case 14
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("193:270,286:291,336:347").EntireRow.Hidden = True
    Case 15
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("219:270,287:291,338:347").EntireRow.Hidden = True
    Case 16
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("219:270,288:291,340:347").EntireRow.Hidden = True
    Case 17
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("245:270,289:291,342:347").EntireRow.Hidden = True
    Case 18
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("245:270,290:291,344:347").EntireRow.Hidden = True
    Case 19
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
        Range("291:291,346:347").EntireRow.Hidden = True
    Case 20
        Range("11:270,272:291,306:347").EntireRow.Hidden = False
    
   End Select
   End If

       
End Sub

Private Sub Worksheet_Calculate()

    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 1 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 2").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 2").Visible = True
    End If
   
   
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 3 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 4").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 4").Visible = True
    End If
           
           
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 5 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 6").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 6").Visible = True
    End If
       
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 7 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 8").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 8").Visible = True
    End If
       
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 9 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 10").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 10").Visible = True
    End If
       
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 11 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 12").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 12").Visible = True
    End If
   
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 13 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 14").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 14").Visible = True
    End If
   
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 15 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 16").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 16").Visible = True
    End If
   
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 17 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 18").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 18").Visible = True
    End If
   
       
    If ThisWorkbook.Sheets("Q2").Range("D8").Value = 19 Then
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 20").Visible = False
    Else
        ThisWorkbook.Sheets("Q2").Shapes("Check Box 20").Visible = True
    End If
End Sub



Sheet26

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B19:B39,B51:B71,B82:B87])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet27

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B16:B31])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet28

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B17:B32])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet29
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O6_No._Trans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("11:56,58:67").EntireRow.Hidden = True
       
    Case 1
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("20:56,59:67").EntireRow.Hidden = True
       
    Case 2
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("20:56,60:67").EntireRow.Hidden = True
       
    Case 3
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("29:56,61:67").EntireRow.Hidden = True
   
    Case 4
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("29:56,62:67").EntireRow.Hidden = True
   
    Case 5
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("38:56,63:67").EntireRow.Hidden = True
   
    Case 6
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("38:56,64:67").EntireRow.Hidden = True
   
    Case 7
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("47:56,65:67").EntireRow.Hidden = True
   
    Case 8
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("47:56,66:67").EntireRow.Hidden = True
   
    Case 9
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("47:56,67:67").EntireRow.Hidden = True
   
    Case 10
        Range("11:56,58:67").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub

Sheet3
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("No._Partners")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case "Please Select"
        Range("11:25").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = True
    Case 2
        Range("11:25").EntireRow.Hidden = False
        Range("16:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("161:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("92:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("95:102").EntireRow.Hidden = True
    Case 3
        Range("11:25").EntireRow.Hidden = False
        Range("17:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("162:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("93:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("96:102").EntireRow.Hidden = True
    Case 4
        Range("11:25").EntireRow.Hidden = False
        Range("18:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("163:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("94:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("97:102").EntireRow.Hidden = True
    Case 5
        Range("11:25").EntireRow.Hidden = False
        Range("19:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("164:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("95:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("98:102").EntireRow.Hidden = True
    Case 6
        Range("11:25").EntireRow.Hidden = False
        Range("20:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("165:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("96:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("99:102").EntireRow.Hidden = True
    Case 7
        Range("11:25").EntireRow.Hidden = False
        Range("21:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("166:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("97:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("100:102").EntireRow.Hidden = True
    Case 8
        Range("11:25").EntireRow.Hidden = False
        Range("22:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("167:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("98:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("101:102").EntireRow.Hidden = True
    Case 9
        Range("11:25").EntireRow.Hidden = False
        Range("23:23").EntireRow.Hidden = True
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("168:168").EntireRow.Hidden = True
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("99:99").EntireRow.Hidden = True
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("102:102").EntireRow.Hidden = True
    Case 10
        Range("11:25").EntireRow.Hidden = False
        Sheets("G2 Dairy").Range("160:168").EntireRow.Hidden = False
        Sheets("G2 Beef").Range("91:99").EntireRow.Hidden = False
        Sheets("G2 Sheep").Range("94:102").EntireRow.Hidden = False
    
   End Select
End If
End Sub

Sub Fresian()
    Sheets("G2 Dairy").Visible = False
    If [P1] Or [P2] Or [P3] Then Sheets("G2 Dairy").Visible = True
    If Worksheets("G2").Range("P1") = True Then
    Worksheets("G2 Dairy").Range("92:111").EntireRow.Hidden = False
    Else
    Worksheets("G2 Dairy").Rows("92:111").EntireRow.Hidden = True
    End If
End Sub

Sub Jersey()
    Sheets("G2 Dairy").Visible = False
    If [P1] Or [P2] Or [P3] Then Sheets("G2 Dairy").Visible = True
    If Worksheets("G2").Range("P2") = True Then
    Worksheets("G2 Dairy").Range("112:131").EntireRow.Hidden = False
    Else
    Worksheets("G2 Dairy").Rows("112:131").EntireRow.Hidden = True
    End If
End Sub

Sub Dairy_Other()
    Sheets("G2 Dairy").Visible = False
    If [P1] Or [P2] Or [P3] Then Sheets("G2 Dairy").Visible = True
    If Worksheets("G2").Range("P3") = True Then
    Worksheets("G2 Dairy").Range("132:151").EntireRow.Hidden = False
    Else
    Worksheets("G2 Dairy").Rows("132:151").EntireRow.Hidden = True
    End If
End Sub

Sub Beef()
    Sheets("G2 Beef").Visible = False
    If [Q1] Then Sheets("G2 Beef").Visible = True
End Sub

Sub Sheep()
    Sheets("G2 Sheep").Visible = False
    If [Q2] Then Sheets("G2 Sheep").Visible = True
End Sub

Sub Goats()
    Sheets("G2 Goats").Visible = False
    If [Q3] Then Sheets("G2 Goats").Visible = True
End Sub


Sheet30
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E6_No._Supplies")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 1
        Range("20:99").EntireRow.Hidden = True
    Case 2
        Range("20:99").EntireRow.Hidden = False
        Range("29:99").EntireRow.Hidden = True
    Case 3
        Range("20:99").EntireRow.Hidden = False
        Range("38:99").EntireRow.Hidden = True
    Case 4
        Range("20:99").EntireRow.Hidden = False
        Range("47:99").EntireRow.Hidden = True
    Case 5
        Range("20:99").EntireRow.Hidden = False
        Range("56:99").EntireRow.Hidden = True
    Case 6
        Range("20:99").EntireRow.Hidden = False
        Range("65:99").EntireRow.Hidden = True
    Case 7
        Range("20:99").EntireRow.Hidden = False
        Range("74:99").EntireRow.Hidden = True
    Case 8
        Range("20:99").EntireRow.Hidden = False
        Range("83:99").EntireRow.Hidden = True
    Case 9
        Range("20:99").EntireRow.Hidden = False
        Range("92:99").EntireRow.Hidden = True
    Case 10
        Range("20:99").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub



Sheet31

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B18:B23])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet32

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B27:B30])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub




Sheet33
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$45" Then
    Target(2).Resize(21).EntireRow.Hidden = False
End If
End Sub


Sheet34
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M2_No._Trans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

  
    Case Is = "Please Select", Is = 1, Is = 2
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("20:56,60:67").EntireRow.Hidden = True
       
    Case Is = 3, Is = 4
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("29:56,62:67").EntireRow.Hidden = True
   
    Case Is = 5, Is = 6
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("38:56,64:67").EntireRow.Hidden = True
   
    Case Is = 7, Is = 8
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("47:56,66:67").EntireRow.Hidden = True
   
    Case Is = 9, Is = 10
        Range("11:56,58:67").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub

Sheet35

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B18:B33])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub



Sheet36
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M1_No._Trans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

     
    Case Is = "Please Select", Is = 1, Is = 2
        Range("11:58").EntireRow.Hidden = False
        Range("22:58").EntireRow.Hidden = True
       
    Case Is = 3, Is = 4
        Range("11:58").EntireRow.Hidden = False
        Range("31:58").EntireRow.Hidden = True
   
    Case Is = 5, Is = 6
        Range("11:58").EntireRow.Hidden = False
        Range("40:58").EntireRow.Hidden = True
   
    Case Is = 7, Is = 8
        Range("11:58").EntireRow.Hidden = False
        Range("49:58").EntireRow.Hidden = True
   
    Case Is = 9, Is = 10
        Range("11:58").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub

Sheet37
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I3_No._Trans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("11:56,58:67").EntireRow.Hidden = True
 
    Case 1
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("20:56,59:67").EntireRow.Hidden = True
       
    Case 2
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("20:56,60:67").EntireRow.Hidden = True
      
    Case 3
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("29:56,61:67").EntireRow.Hidden = True
   
    Case 4
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("29:56,62:67").EntireRow.Hidden = True
       
    Case 5
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("38:56,63:67").EntireRow.Hidden = True
   
    Case 6
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("38:56,64:67").EntireRow.Hidden = True
   
    Case 7
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("47:56,65:67").EntireRow.Hidden = True
   
    Case 8
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("47:56,66:67").EntireRow.Hidden = True
   
    Case 9
        Range("11:56,58:67").EntireRow.Hidden = False
        Range("67:67").EntireRow.Hidden = True

    Case 10
        Range("11:56,58:67").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub



Sheet38
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("P2_No._Accounts")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = "0"
        Range("11:127").EntireRow.Hidden = True
   
    Case Is = 1, Is = 2
        Range("11:127").EntireRow.Hidden = False
        Range("20:27,33:40,50:127").EntireRow.Hidden = True
       
    Case Is = 3, Is = 4
        Range("11:127").EntireRow.Hidden = False
        Range("20:27,33:40,59:66,72:79,89:127").EntireRow.Hidden = True
   
    Case Is = 5, Is = 6
        Range("11:127").EntireRow.Hidden = False
        Range("20:27,33:40,59:66,72:79,98:105,111:118").EntireRow.Hidden = True

   
   End Select
   End If
 
   Dim rng As Range
   Set rng = Intersect(Target, [B19:B27,I19:I27,B32:B40,I32:I40,B58:B66,I58:I66,B71:B79,I71:I79,B97:B105,I97:I105,B110:B118,I110:I118])
   If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
   End Sub
  
Sheet39
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q3_No._Trans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("11:56,58:68").EntireRow.Hidden = True
    Case 1
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("20:56,59:68").EntireRow.Hidden = True
    Case 2
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("20:56,60:68").EntireRow.Hidden = True
    Case 3
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("29:56,61:68").EntireRow.Hidden = True
    Case 4
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("29:56,62:68").EntireRow.Hidden = True
    Case 5
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("38:56,63:68").EntireRow.Hidden = True
    Case 6
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("38:56,64:68").EntireRow.Hidden = True
    Case 7
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("47:56,65:68").EntireRow.Hidden = True
    Case 8
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("47:56,66:68").EntireRow.Hidden = True
    Case 9
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("67:68").EntireRow.Hidden = True
    Case 10
        Range("11:56,58:68").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub



Sheet41
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q3_No._Trans")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("11:56,58:68").EntireRow.Hidden = True
    Case 1
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("20:56,59:68").EntireRow.Hidden = True
    Case 2
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("20:56,60:68").EntireRow.Hidden = True
    Case 3
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("29:56,61:68").EntireRow.Hidden = True
    Case 4
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("29:56,62:68").EntireRow.Hidden = True
    Case 5
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("38:56,63:68").EntireRow.Hidden = True
    Case 6
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("38:56,64:68").EntireRow.Hidden = True
    Case 7
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("47:56,65:68").EntireRow.Hidden = True
    Case 8
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("47:56,66:68").EntireRow.Hidden = True
    Case 9
        Range("11:56,58:68").EntireRow.Hidden = False
        Range("67:68").EntireRow.Hidden = True
    Case 10
        Range("11:56,58:68").EntireRow.Hidden = False
    
   End Select
   End If
   End Sub



Sheet54


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B27:B45,I27:I45,B55:B73,I55:I73,B83:B101,I83:I101])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub


Sheet55
Private Sub CommandButton1_Click()
Asset_Hide_Prop_1
Asset_Hide_Chat_1
PDFRentalStmtNo1
End Sub
Private Sub CommandButton2_Click()
Asset_Hide_Prop_2
Asset_Hide_Chat_2
PDFRentalStmtNo2
End Sub
Private Sub CommandButton3_Click()
Asset_Hide_Prop_3
Asset_Hide_Chat_3
PDFRentalStmtNo3
End Sub
Private Sub CommandButton4_Click()
Asset_Hide_Prop_4
Asset_Hide_Chat_4
PDFRentalStmtNo4
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Me.Range("D8")) Is Nothing Then
        Me.CommandButton1.Visible = CBool(Target.Value > 0 And Target.Value < 5)
    End If
   
        If Not Intersect(Target, Me.Range("D8")) Is Nothing Then
        Me.CommandButton2.Visible = CBool(Target.Value > 1 And Target.Value < 5)
    End If
   
        If Not Intersect(Target, Me.Range("D8")) Is Nothing Then
        Me.CommandButton3.Visible = CBool(Target.Value > 2 And Target.Value < 5)
    End If
   
        If Not Intersect(Target, Me.Range("D8")) Is Nothing Then
        Me.CommandButton4.Visible = CBool(Target.Value > 3 And Target.Value < 5)
    End If
 
If Not Intersect(Target, Range("No._Rentals")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case "Please Select"
        Range("15:18,42:269").EntireRow.Hidden = True
       
    Case 1
        Range("15:18,42:269").EntireRow.Hidden = False
        Range("16:18,61:114,124:130,137:153,155:268").EntireRow.Hidden = True
       
    Case 2
        Range("15:18,42:269").EntireRow.Hidden = False
        Range("17:18,79:114,124:130,137:153,162:168,175:191,193:268").EntireRow.Hidden = True
       
    Case 3
        Range("15:18,42:269").EntireRow.Hidden = False
        Range("18:18,97:114,124:130,137:153,162:168,175:191,200:206,213:229,231:268").EntireRow.Hidden = True
       
    Case 4
        Range("15:18,42:269").EntireRow.Hidden = False
        Range("124:130,137:153,162:168,175:191,200:206,213:229,238:244,251:267").EntireRow.Hidden = True

End Select
End If

Dim rng As Range
Set rng = Intersect(Target, [B123:B130,B136:B153,B161:B168,B174:B191,B199:B206,B212:B229,B237:B244,B250:B267])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B21:B116")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(117).EntireRow.Hidden = Target.EntireRow.Hidden
    End If

End Sub

Sheet64

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)


    Dim InvSel As Variant, PartSel As Variant, part1 As Variant, part2 As Variant, part3 As Variant
    Dim r As Range, waum As Long, ini1 As Long, fin1 As Long, k As Long
   
    If Target.Count > 2 Then Exit Sub
   
    If Not Intersect(Target, Range("No._Investments", "No._Partners")) Is Nothing Then
        Rows("163:292").EntireRow.Hidden = False
        InvSel = IIf(Range("No._Investments").Value = "Please Select", 0, Range("No._Investments").Value)
        PartSel = IIf(Range("No._Partners").Value = "Please Select", 0, Range("No._Partners").Value)
       
        part1 = Array(, 165, 178, 191, 204, 217, 230, 243, 256, 269, 282)
        part2 = Array(, 173, 186, 199, 212, 225, 238, 251, 264, 277, 290)
        part3 = Array(, 176, 189, 202, 215, 228, 241, 254, 267, 280)
       
        If InvSel = 0 Then
            Set r = Range(163 & ":" & 292)
        Else
            If PartSel < 10 Then
                For k = 1 To InvSel
                    If PartSel = 0 Then waum = 0 Else waum = PartSel - 1
                    ini1 = part1(k) + waum
                    fin1 = part2(k)
                    If r Is Nothing Then
                        Set r = Range(ini1 & ":" & fin1)
                    Else
                        Set r = Union(r, Range(ini1 & ":" & fin1))
                    End If
                Next
                If InvSel < 10 Then Set r = Union(r, Range(part3(InvSel) & ":" & 292))
            Else
                If InvSel < 10 Then Set r = Range(part3(InvSel) & ":" & 292)
            End If
        End If
        If Not r Is Nothing Then r.EntireRow.Hidden = True
    End If

   
If Not Intersect(Target, Range("No._Partners")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case "Please Select"
        Range("11:25").EntireRow.Hidden = True
    Case 0
        Range("11:25").EntireRow.Hidden = True
    Case 2
        Range("11:25").EntireRow.Hidden = False
        Range("16:23").EntireRow.Hidden = True
    Case 3
        Range("11:25").EntireRow.Hidden = False
        Range("17:23").EntireRow.Hidden = True
    Case 4
        Range("11:25").EntireRow.Hidden = False
        Range("18:23").EntireRow.Hidden = True
    Case 5
        Range("11:25").EntireRow.Hidden = False
        Range("19:23").EntireRow.Hidden = True
    Case 6
        Range("11:25").EntireRow.Hidden = False
        Range("20:23").EntireRow.Hidden = True
    Case 7
        Range("11:25").EntireRow.Hidden = False
        Range("21:23").EntireRow.Hidden = True
    Case 8
        Range("11:25").EntireRow.Hidden = False
        Range("22:23").EntireRow.Hidden = True
    Case 9
        Range("11:25").EntireRow.Hidden = False
        Range("23:23").EntireRow.Hidden = True
    Case 10
        Range("11:25").EntireRow.Hidden = False
    
   End Select
   End If

  
If Not Intersect(Target, Range("No._Investments")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("26:136,139:149").EntireRow.Hidden = True
    Case 1
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("50:136,189:292,141:149").EntireRow.Hidden = True
    Case 2
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("50:136,189:292,142:149").EntireRow.Hidden = True
    Case 3
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("72:136,215:292,143:149").EntireRow.Hidden = True
    Case 4
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("72:136,215:292,144:149").EntireRow.Hidden = True
    Case 5
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("94:136,241:292,145:149").EntireRow.Hidden = True
    Case 6
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("94:136,241:292,146:149").EntireRow.Hidden = True
    Case 7
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("116:136,267:292,147:149").EntireRow.Hidden = True
    Case 8
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("116:136,267:292,148:149").EntireRow.Hidden = True
    Case 9
        Range("26:136,139:149").EntireRow.Hidden = False
        Range("149:149").EntireRow.Hidden = True
    Case 10
        Range("26:136,139:149").EntireRow.Hidden = False
    
   End Select
   End If
  
   
    If [H8] = "YES" Then
        Sheets("K1a").Visible = True
    Else
        Sheets("K1a").Visible = False
    End If

End Sub

Sheet65

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

If Not Intersect(Target, Range("No._Trade_Short")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

      
    Case Is = "Please Select", Is = 0
        Range("11:90").EntireRow.Hidden = True
   
    Case Is = 1, Is = 2
        Range("11:90").EntireRow.Hidden = False
        Range("22:29,35:42,52:90").EntireRow.Hidden = True
       
    Case Is = 3, Is = 4
        Range("11:90").EntireRow.Hidden = False
        Range("22:29,35:42,61:68,74:81").EntireRow.Hidden = True
   
   
   End Select
   End If
  
   If Not Intersect(Target, Range("No._Trade_Full")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case Is = "Please Select", Is = 0
        Range("91:584,598:927").EntireRow.Hidden = True
       
    Case 1
        Range("91:584,598:927").EntireRow.Hidden = False
        Range("106:109,125:133,145:152,158:165,175:584,604:608,621:630,633:641,644:927").EntireRow.Hidden = True
       
    Case 2
        Range("91:584,598:927").EntireRow.Hidden = False
        Range("106:109,125:133,145:152,158:165,604:608,621:630,633:641,644:652").EntireRow.Hidden = True
        Range("188:191,207:215,227:234,240:247,257:584,659:663,676:685,688:696,699:927").EntireRow.Hidden = True
       
    Case 3
        Range("91:584,598:927").EntireRow.Hidden = False
        Range("106:109,125:133,145:152,158:165,604:608,621:630,633:641,644:652").EntireRow.Hidden = True
        Range("188:191,207:215,227:234,240:247,659:663,676:685,688:696,699:707").EntireRow.Hidden = True
        Range("270:273,289:297,309:316,322:329,339:584,714:718,731:740,743:751,754:927").EntireRow.Hidden = True
       
    Case 4
        Range("91:584,598:927").EntireRow.Hidden = False
        Range("106:109,125:133,145:152,158:165,604:608,621:630,633:641,644:652").EntireRow.Hidden = True
        Range("188:191,207:215,227:234,240:247,659:663,676:685,688:696,699:707").EntireRow.Hidden = True
        Range("270:273,289:297,309:316,322:329,714:718,731:740,743:751,754:762").EntireRow.Hidden = True
        Range("352:355,371:379,391:398,404:411,421:584,769:773,786:795,798:806,809:927").EntireRow.Hidden = True
        
    Case 5
        Range("91:584,598:927").EntireRow.Hidden = False
        Range("106:109,125:133,145:152,158:165,604:608,621:630,633:641,644:652").EntireRow.Hidden = True
        Range("188:191,207:215,227:234,240:247,659:663,676:685,688:696,699:707").EntireRow.Hidden = True
        Range("270:273,289:297,309:316,322:329,714:718,731:740,743:751,754:762").EntireRow.Hidden = True
        Range("352:355,371:379,391:398,404:411,769:773,786:795,798:806,809:817").EntireRow.Hidden = True
        Range("434:437,453:461,473:480,486:493,503:584,824:828,841:850,853:861,864:927").EntireRow.Hidden = True
       
       
    Case 6
        Range("91:584,598:927").EntireRow.Hidden = False
        Range("106:109,125:133,145:152,158:165,604:608,621:630,633:641,644:652").EntireRow.Hidden = True
        Range("188:191,207:215,227:234,240:247,659:663,676:685,688:696,699:707").EntireRow.Hidden = True
        Range("270:273,289:297,309:316,322:329,714:718,731:740,743:751,754:762").EntireRow.Hidden = True
        Range("352:355,371:379,391:398,404:411,769:773,786:795,798:806,809:817").EntireRow.Hidden = True
        Range("434:437,453:461,473:480,486:493,824:828,841:850,853:861,864:872").EntireRow.Hidden = True
        Range("516:519,535:543,555:562,568:575,879:883,896:905,908:916,919:927").EntireRow.Hidden = True

          
   End Select
   End If
  
        
   'Full Detail No.1
    If Not Intersect(Target, Range("B105:B109")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(499).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B124:B133")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(497).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B144:B152")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(489).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B157:B165")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(487).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
       'Full Detail No.2
    If Not Intersect(Target, Range("B187:B191")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(472).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B206:B215")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(470).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B226:B234")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(462).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B239:B247")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(460).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    'Full Detail No.3
    If Not Intersect(Target, Range("B269:B273")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(445).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B288:B273")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(443).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B308:B316")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(435).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B321:B329")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(433).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
     'Full Detail No.4
    If Not Intersect(Target, Range("B351:B355")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(418).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B370:B370")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(416).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B390:B398")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(408).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B403:B411")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(406).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
         'Full Detail No.5
    If Not Intersect(Target, Range("B433:B437")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(391).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B452:B461")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(389).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B472:B480")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(381).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B485:B493")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(379).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    'Full Detail No.6
    If Not Intersect(Target, Range("B515:B519")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(364).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B534:B543")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(362).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B554:B562")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(354).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    If Not Intersect(Target, Range("B567:B575")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Offset(1).EntireRow.Hidden = Target.EntireRow.Hidden
        Target.Offset(352).EntireRow.Hidden = Target.EntireRow.Hidden
    End If
   
    'Short Detail
   Dim rng As Range
    Set rng = Intersect(Target, [B21:B29,I21:I29,B34:B42,I34:I42,B60:B68,I60:I68,B73:B81,I73:I81])
    If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub



Sheet69

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range
Set rng = Intersect(Target, [d21:d24,d35:d38,d68:d71,d76:d79])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False


If Not Intersect(Target, Range("D8")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub

    Range("26:29,52:68,72:76,80:88").EntireRow.Hidden = Target.Value <> "Company"

End If

End Sub

Sheet70

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B16:B31])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet71

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [C22:C40,C46:C53])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet73


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, [B19:B44])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False
End Sub

Sheet75
Private Sub Worksheet_Change(ByVal Target As Range)

       
        If Not Intersect(Target, Range("No._Partners_K1a")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value

    Case "Please Select"
        Range("11:25,97:105").EntireRow.Hidden = True
       
    Case 2
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("16:23,98:105").EntireRow.Hidden = True
       
    Case 3
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("17:23,99:105").EntireRow.Hidden = True
         
    Case 4
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("18:23,100:105").EntireRow.Hidden = True
       
    Case 5
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("19:23,101:105").EntireRow.Hidden = True
       
    Case 6
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("20:23,102:105").EntireRow.Hidden = True
       
    Case 7
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("21:23,103:105").EntireRow.Hidden = True
       
    Case 8
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("22:23,104:105").EntireRow.Hidden = True
       
    Case 9
        Range("11:25,97:105").EntireRow.Hidden = False
        Range("23:23,105:105").EntireRow.Hidden = True
   
    Case 10
        Range("11:25,97:105").EntireRow.Hidden = False
               
        End Select
        End If
    End Sub
       
       

Sheet81
Sub GST_Hide1()
   Dim Cl As Range
   For Each Cl In Sheet81.Range("I15:I49")
     Cl.EntireRow.Hidden = IIf(Cl = 0, True, False)
   Next Cl
End Sub

Sub GST_Hide2()
   Dim Cl As Range
   For Each Cl In Sheet81.Range("I63:I97")
     Cl.EntireRow.Hidden = IIf(Cl = 0, True, False)
   Next Cl
End Sub


Sub GST_User_Input()
    Dim response As String
    response = InputBox("1/3 Enter notes to client regarding Input tax..")
    Range("D53").Value = response

    response = InputBox("2/3 Enter notes to client regarding Output tax..")
    Range("D101").Value = response

    response = InputBox("3/3 Enter notes to client regarding Overall Balance..")
    Range("D106").Value = response
End Sub

Sheet83
Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Dim rng1 As Range, rng2 As Range, c As Range

Set rng1 = Union(Range("D12"), Range("D68"), Range("D124"), Range("D180"), Range("D236"), Range("D292"), Range("D348"), Range("D404"), Range("D460"), Range("D516"))
Set rng2 = Intersect(Target, rng1)

If Not rng2 Is Nothing Then
    For Each c In rng2
        Application.EnableEvents = False
        If Len(c.Value) = 15 Then Target.Value = Application.Replace(c.Value, 14, 0, "0")
        c.Value = Format(Replace(Replace(c.Value, " ", ""), "-", ""), "@@-@@@@-@@@@@@@-@@@")
        Application.EnableEvents = True
    Next
End If

If Not Intersect(Target, Range("No._Bank_Accounts")) Is Nothing Then

If Target.Cells.CountLarge > 1 Then Exit Sub
Select Case Target.Value


    Case "Please Select"
        Range("26:569").EntireRow.Hidden = True
       
    Case 1
        Range("26:569").EntireRow.Hidden = True
       
    Case 2
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:569").EntireRow.Hidden = True
       
    Case 3
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:569").EntireRow.Hidden = True
       
    Case 4
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:569").EntireRow.Hidden = True
       
    Case 5
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:233,250:569").EntireRow.Hidden = True
       
    Case 6
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:233,250:289,306:569").EntireRow.Hidden = True
       
    Case 7
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:233,250:289,306:345,362:569").EntireRow.Hidden = True
       
    Case 8
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:233,250:289,306:345,362:401,418:569").EntireRow.Hidden = True
       
    Case 9
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:233,250:289,306:345,362:401,418:457,474:569").EntireRow.Hidden = True
       
    Case 10
        Range("26:569").EntireRow.Hidden = False
        Range("26:65,82:121,138:177,194:233,250:289,306:345,362:401,418:457,474:513,530:569").EntireRow.Hidden = True
       
End Select
End If

    If Range("Plus_YN_01") = "NO" Then
        Range("26:45").EntireRow.Hidden = True
    Else
        Range("26:33,44:45").EntireRow.Hidden = False
    End If


    If Range("Less_YN_01") = "NO" Then
        Range("46:65").EntireRow.Hidden = True
    Else
        Range("46:53,64:65").EntireRow.Hidden = False
    End If
     
     
    If Range("Plus_YN_02") = "NO" Then
        Range("82:101").EntireRow.Hidden = True
    Else
        Range("82:90,100:101").EntireRow.Hidden = False
    End If


    If Range("Less_YN_02") = "NO" Then
        Range("102:121").EntireRow.Hidden = True
    Else
        Range("102:109,120:121").EntireRow.Hidden = False
    End If
   
   
        If Range("Plus_YN_03") = "NO" Then
        Range("138:157").EntireRow.Hidden = True
    Else
        Range("138:145,156:157").EntireRow.Hidden = False
    End If


    If Range("Less_YN_03") = "NO" Then
        Range("158:177").EntireRow.Hidden = True
    Else
        Range("158:165,176:177").EntireRow.Hidden = False
    End If
       
   
        If Range("Plus_YN_04") = "NO" Then
        Range("194:213").EntireRow.Hidden = True
    Else
        Range("194:201,212:213").EntireRow.Hidden = False
    End If


    If Range("Less_YN_04") = "NO" Then
        Range("214:233").EntireRow.Hidden = True
    Else
        Range("214:221,232:233").EntireRow.Hidden = False
    End If
           
   
        If Range("Plus_YN_04") = "NO" Then
        Range("194:213").EntireRow.Hidden = True
    Else
        Range("194:201,212:213").EntireRow.Hidden = False
    End If


    If Range("Less_YN_04") = "NO" Then
        Range("214:233").EntireRow.Hidden = True
    Else
        Range("214:221,232:233").EntireRow.Hidden = False
    End If
           
   
        If Range("Plus_YN_05") = "NO" Then
        Range("250:269").EntireRow.Hidden = True
    Else
        Range("250:257,268:269").EntireRow.Hidden = False
    End If


    If Range("Less_YN_05") = "NO" Then
        Range("270:289").EntireRow.Hidden = True
    Else
        Range("270:277,288:289").EntireRow.Hidden = False
    End If
   
   
        If Range("Plus_YN_06") = "NO" Then
        Range("306:325").EntireRow.Hidden = True
    Else
        Range("306:313,324:325").EntireRow.Hidden = False
    End If


    If Range("Less_YN_06") = "NO" Then
        Range("326:345").EntireRow.Hidden = True
    Else
        Range("326:333,344:345").EntireRow.Hidden = False
    End If

   
        If Range("Plus_YN_07") = "NO" Then
        Range("362:381").EntireRow.Hidden = True
    Else
        Range("362:369,380:381").EntireRow.Hidden = False
    End If


    If Range("Less_YN_07") = "NO" Then
        Range("382:401").EntireRow.Hidden = True
    Else
        Range("382:389,400:401").EntireRow.Hidden = False
    End If
   
   
        If Range("Plus_YN_08") = "NO" Then
        Range("418:437").EntireRow.Hidden = True
    Else
        Range("418:425,436:437").EntireRow.Hidden = False
    End If


    If Range("Less_YN_08") = "NO" Then
        Range("438:457").EntireRow.Hidden = True
    Else
        Range("438:445,456:457").EntireRow.Hidden = False
    End If
       
   
        If Range("Plus_YN_09") = "NO" Then
        Range("474:493").EntireRow.Hidden = True
    Else
        Range("474:481,492:493").EntireRow.Hidden = False
    End If


    If Range("Less_YN_09") = "NO" Then
        Range("494:513").EntireRow.Hidden = True
    Else
        Range("494:501,512:513").EntireRow.Hidden = False
    End If
        If Range("Plus_YN_10") = "NO" Then
        Range("530:549").EntireRow.Hidden = True
    Else
        Range("530:537,548:549").EntireRow.Hidden = False
    End If
    If Range("Less_YN_10") = "NO" Then
        Range("550:569").EntireRow.Hidden = True
    Else
        Range("550:557,568:569").EntireRow.Hidden = False
    End If
Dim rng As Range
Set rng = Intersect(Target, [B33:B43,B53:B64,B90:B99,B109:B119,B145:B155,B165:B175,B201:B211,B221:B231,B257:B267,B277:B287,B313:B323,B333:B343,B369:B379,B389:B399,B425:B435,B445:B455,B481:B491,B501:B511,B537:B547,B557:B567])
If Not rng Is Nothing Then rng(2, 1).EntireRow.Hidden = False

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Sheet86
Private Sub Worksheet_Calculate()

    If ThisWorkbook.Sheets("E1").Range("V6").Value = 74 Then
        ThisWorkbook.Sheets("E1").Shapes("Check Box 11").Visible = True
    Else
        ThisWorkbook.Sheets("E1").Shapes("Check Box 11").Visible = False
    End If
   
End Sub

Michael M · Jan 12, 2020

Did you try the link I supplied in Post #8

https://support.microsoft.com/en-us/help/211922/how-to-modify-the-number-of-undo-levels-in-excel

tlc53 · Jan 13, 2020

Michael M said:
Did you try the link I supplied in Post #8

Yes, I did have a look at it and I've just had another look now. I don't think it's relevant to my issue as it's not the number of Undo's that's the problem, it's that Undo doesn't exist at all. I've researched other threads with a similar issue and it is usually caused by coding, for example a Change Event. However, I'm not efficient enough in Excel to be able to work out where the problem is originating from or if it is only from one place.
It's not the end of the work if I can't resolve it (I'll just have to work with it) but it does make it harder to work on, as I didn't realise how much I take this function for granted.

Michael M · Jan 13, 2020

Does the Undo work on other workbooks ??

tlc53 said:
it's not the number of Undo's that's the problem, it's that Undo doesn't exist at all

Well, if the Undo is set to zero in the registry, it means the Undo will be greyed out !!
As mentioned earlier can you sanitise the data in the workbook and upload it to a hosting site, so we can take a look at it ??

tlc53 · Jan 13, 2020

Michael M said:
Does the Undo work on other workbooks ??

Well, if the Undo is set to zero in the registry, it means the Undo will be greyed out !!
As mentioned earlier can you sanitise the data in the workbook and upload it to a hosting site, so we can take a look at it ??

When I'm entering data into a cell, I can see that the Undo feature is available. As soon as I enter or move to a different cell, it greys out again.
I will work on version of the workbook for uploading purposes. Thank you!

Michael M · Jan 13, 2020

It sounds like a reinstall of Excel might be required !!

tlc53 · Jan 13, 2020

Michael M said:
It sounds like a reinstall of Excel might be required !!

I have tried uninstalling and reinstalling Microsoft Office 365/Excel but the problem is still there. However, it has clarified that the error is probably with Excel and not my Workbook, as when I start a new workbook, Undo is still unavailable.
Do you think it could have something to do with the link you provided? Where the registry is set to zero? I'm a little nervous to just give it a go willy-nilly as it does say "However, serious problems might occur if you modify the registry incorrectly." My system doesn't have the usual Start/Run/Type box either, so I can't follow the steps exactly. I think I'm running XP

JLGWhiz · Jan 13, 2020

@Michael M - Mike are the bush fires near your home?

Michael M · Jan 13, 2020

@JLGWhiz
Not really....about 2 hours away, but on the other side of the range.......besides we've got nothing left to burn..

@tlc53
I can understand your concern about modifying the registry, but you can back it up first !!
Having said that though, if you have reinstalled Excel, the registry should be set to 16 anyways.

JLGWhiz · Jan 13, 2020

@Michael M - Some of our wildfire fighters have gone to help your folks. Our guys have a lot of experience with fighting fires is the bush with alligators, snakes and such running rampant. Hope they do a good job for you and that you stay safe.
Regards, JLG

Undo Won't Work

tlc53

Active Member

tlc53

Active Member

Excel Facts

Michael M

Well-known Member

tlc53

Active Member

Michael M

Well-known Member

tlc53

Active Member

Michael M

Well-known Member

tlc53

Active Member

JLGWhiz

Well-known Member

Michael M

Well-known Member

JLGWhiz

Well-known Member

Similar threads

Forum statistics

Share this page

Undo Won't Work

Active Member

Active Member

Excel Facts

Well-known Member

Active Member

Well-known Member

Active Member

Well-known Member

Active Member

Well-known Member

Well-known Member

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock