Extracting VBA from: VariableBlocks.xls
Contains VBA: True

============================================================
--- Module1.bas ---
============================================================
Attribute VB_Name = "Module1"
Public NoWorries As Boolean
Option Explicit
Sub randomise()
'
' randomise Macro
' Macro recorded 31/10/2004 by Brown
'

    Dim MischiefManaged As Boolean
    Dim Quaffle As Boolean
    Dim Snitch As Boolean
    Dim StopLoop As Boolean
    Dim NextCol As Boolean
    Dim CheckDup As Boolean
    Dim ColW As Single
    Dim TotalUnits As Long
    Dim TestTreat As Integer
    Dim Counter1 As Integer
    Dim Counter2 As Integer
    Dim Counter3 As Integer
    Dim Response As Integer
    Dim nControl As Integer
    Dim MischiefRow As Integer
    Dim MischiefCol As Integer
    Dim nNonControl As Integer
    Dim nTreat As Range
    Dim nRep As Range
    Dim nBlock As Range
    Dim c As Range
    Dim TreatName As Range
    Dim BlockName As Range
    Dim TreatRange As Range
    Dim TreatRangeAll As Range
    Application.ScreenUpdating = False
    
' Check errors in input
    Worksheets("Describe experiment").Activate
    Set nTreat = Range("B10")
    Set nRep = Range("B12")
    Set nBlock = Range("B15")
    Range(Cells(20 + nBlock, 7), Cells(519, 7)).ClearContents
    nControl = Application.WorksheetFunction.CountIf(Range("D20", Cells(nTreat + 19, 4)), "Yes")
    nNonControl = (nTreat - nControl) * nRep
    Set TreatName = Range("B20", Cells(nTreat.Value + 19, 4))
    Set BlockName = Range("F20", Cells(nBlock.Value + 19, 7))
    TotalUnits = Range("D14").Value
    Range("B7").Select
    NoWorries = True
    If nTreat < 2 Then
        Range("B10").Select
        SuddenStop
        Response = MsgBox("Minimum 2 treatments", 0, "Edgar II")
    End If
    If NoWorries And (nRep < 2 Or nRep > 100) Then
        Range("B12").Select
        SuddenStop
        Response = MsgBox("2-100 reps of each treatment", 0, "Edgar II")
    End If
    If NoWorries And nBlock < 1 Then
        Range("B15").Select
        SuddenStop
        Response = MsgBox("Minimum 1 block", 0, "Edgar II")
    End If
    If NoWorries And TotalUnits > 5000 Then
        SuddenStop
        Response = MsgBox("Max 5000 units in total", 0, "Edgar II")
    End If
    If NoWorries And Range("D15") <> Range("D14") Then
        SuddenStop
        Response = MsgBox("Incorrect number of plots in design", 0, "Edgar II")
    End If
    If NoWorries Then
    If nTreat < 500 Then
        Range(Cells(20 + nTreat, 3), Cells(519, 3)).ClearContents
        Range(Cells(20 + nTreat, 4), Cells(519, 4)) = "No"
    End If
    If nRep < 100 Then Range(Cells(20 + nBlock, 7), Cells(519, 7)).ClearContents
    With ActiveWindow
        .ScrollRow = 1
        .ScrollColumn = 1
    End With

' Need to test if the design is capable of being analysed
    MischiefManaged = False
    Do Until MischiefManaged
    
' Design sheet header
    Worksheets("Design, list").Activate
    Range("A3") = "x"
    Range("A3", Range("A3").SpecialCells(xlLastCell)).EntireRow.Delete
    Range("A3").Formula = "=""Experiment: ""&'Describe experiment'!B7"
    Range("A4").Formula = "=""Designed: ""&'Describe experiment'!A3"
    Range("A3", "A4").Copy
    Range("A3", "A4").PasteSpecial xlPasteValues
    With Rows("3:4")
        .Font.Name = "Arial"
        .Font.Size = 12
        .RowHeight = 15
    End With

' Random numbers and treatments
    TreatName.Copy
    Worksheets("Design, list").Range("A7").PasteSpecial Paste:=xlPasteValues
    Range("A7", Cells(nTreat + 6, 1)).Delete Shift:=xlToLeft
    Set TreatRange = Range(Cells(7, 1), Cells(nTreat + 6, 1))
    Counter1 = 0
    For Each c In TreatRange
        Counter1 = Counter1 + 1
        If c = "" Then c = Counter1
    Next c
    Range("A7", Range("B7").End(xlDown)).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
        MatchCase:=False, Orientation:=xlTopToBottom
    For Counter1 = 1 To nTreat - 1
        If Cells(6 + Counter1, 1) = Cells(7 + Counter1, 1) Then
            Response = MsgBox("All treatment names must be different", 0, "Edgar II")
            Worksheets("Describe experiment").Activate
            Exit Do
        End If
    Next Counter1
    
    Range("A7", Range("B7").End(xlDown)).Sort Key1:=Range("B7"), Order1:=xlDescending, Header:=xlNo, _
        MatchCase:=False, Orientation:=xlTopToBottom

' Set up Layout sheet
    Worksheets("Design, layout").Activate
    Columns.ColumnWidth = 8.43
    Range("A3") = "x"
    Range("A3", Range("A3").SpecialCells(xlLastCell)).EntireRow.Delete
    Range("A3", Range("A3").SpecialCells(xlLastCell)).Borders.LineStyle = xlNone
    BlockName.Copy
    Range("B7").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("B7", Cells(8, nBlock + 1)).Sort Key1:=Range("B8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Worksheets("Design, list").Activate
' Controls into every block
    If nControl > 0 Then
        Range("A7", Cells(nControl + 6, 1)).Copy
        Worksheets("Design, layout").Activate
        Range("B9", Cells(9, nBlock + 1)).PasteSpecial xlPasteValues
        Worksheets("Design, list").Activate
        Range("A7", Cells(nControl + 6, 1)).Clear
    End If
' Copy non-controls in List sheet
    Set TreatRange = Range(Cells(6 + nControl + 1, 1), Cells(nTreat + 6, 1))
    Set TreatRangeAll = Range(Cells(nControl + 7, 1), Cells(nNonControl + nControl + 6, 1))
    TreatRange.Copy
    TreatRangeAll.PasteSpecial xlPasteValues
    Worksheets("Design, layout").Cells(557, 1).PasteSpecial Paste:=xlPasteValues
    
' Block numbers into List sheet
    Range("B7", Cells(nTreat + 6, 2)).ClearContents
    BlockName.Copy
    Range("D7").PasteSpecial Paste:=xlPasteValues
    Range("D7", Range("E7").End(xlDown)).Sort Key1:=Range("E7"), Order1:=xlDescending, Header:=xlNo, _
        MatchCase:=False, Orientation:=xlTopToBottom
    For Each c In Range("E7", Cells(nBlock + 6, 5))
        c = c - nControl
    Next c
    For Counter1 = 1 To nBlock
        Cells(Counter1 + 6, 6) = Cells(Counter1 + 5, 6) + Cells(Counter1 + 5, 5)
        Cells(Counter1 + 6, 7) = Cells(Counter1 + 5, 7) + Cells(Counter1 + 6, 5)
    Next Counter1
' Select treatments for blocks
    For Counter1 = 1 To nBlock
        If Cells(Counter1 + 6, 5) > 0 Then
            If Not (nControl + Cells(Counter1 + 6, 6) + 7 = nControl + nNonControl + 6) Then
                Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 1), _
                    Cells(nControl + nNonControl + 6, 1)).Sort _
                    Key1:=Cells(nControl + Cells(Counter1 + 6, 6) + 7, 1), _
                    Order1:=xlAscending, Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
            End If
            Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 2), _
                Cells(nControl + nNonControl + 6, 2)).FormulaR1C1 = _
                "=if(RC1=R[-1]C1,R[-1]C+1,0)"
            Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 3), _
                Cells(nControl + nNonControl + 6, 3)).FormulaR1C1 = _
                "=if(RC1=R[-1]C1,rand()+RC2,rand())"
            With Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 2), _
                Cells(nControl + nNonControl + 6, 3))
                .Copy
                .PasteSpecial xlPasteValues
            End With
            Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 1), _
                Cells(nControl + nNonControl + 6, 3)).Sort Key1:=Cells(nControl + Cells(Counter1 + 6, 6) + 7, 3), Order1:=xlAscending, Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
            Counter2 = Cells(Counter1 + 6, 7)
            Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 1), _
                Cells(nControl + Counter2 + 6, 1)).Copy
            Worksheets("Design, layout").Activate
            Cells(nControl + 9, Counter1 + 1).PasteSpecial Paste:=xlPasteValues
            Range(Cells(nControl + 9, Counter1 + 1), Cells(nControl + 9, Counter1 + 1).End(xlDown)).Sort _
                Key1:=Cells(nControl + 9, Counter1 + 1), Order1:=xlAscending, Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
            Worksheets("Design, list").Activate
            Range(Cells(nControl + Cells(Counter1 + 6, 6) + 7, 1), _
                Cells(nControl + Cells(Counter1 + 6, 7) + 6, 3)).Clear
        End If
    Next Counter1

' Check for duplicates
    Worksheets("Design, layout").Activate
    MischiefManaged = False
    Do Until MischiefManaged
        StopLoop = False
        CheckDup = False
        Do Until StopLoop
            For Counter1 = nBlock To 1 Step -1
                For Counter2 = 1 To Cells(8, Counter1 + 1).Value - nControl
                    If (Cells(Counter2 + nControl + 8, Counter1 + 1) <> """" And _
                        Cells(Counter2 + nControl + 9, Counter1 + 1) <> """") Then
                        If (Cells(Counter2 + nControl + 8, Counter1 + 1) = Cells(Counter2 + nControl + 9, Counter1 + 1)) Then
                            Range("A3") = Cells(Counter2 + nControl + 8, Counter1 + 1)
                            MischiefRow = Counter2 + nControl + 8
                            MischiefCol = Counter1 + 1
                            CheckDup = True
                            Exit Do
                        End If
                    End If
                Next Counter2
            Next Counter1
            StopLoop = True
            MischiefManaged = True
        Loop
        If CheckDup Then
            For Counter1 = 1 To nBlock
            NextCol = False
                For Counter2 = 1 To Cells(8, Counter1 + 1)
                    If Cells(Counter2 + nControl + 8, Counter1 + 1) = Cells(3, 1) Then
                        NextCol = True
                        Exit For
                    End If
                Next Counter2
                If Not NextCol Then
                    Range(Cells(9 + nControl, Counter1 + 1), Cells(Cells(8, Counter1 + 1) + 8, Counter1 + 1)).Copy
                    Cells(9, nBlock + 3).PasteSpecial xlPasteValues
                    Range(Cells(9 + nControl, MischiefCol), Cells(Cells(8, MischiefCol) + 8, MischiefCol)).Copy
                    Cells(8, nBlock + 4).PasteSpecial Paste:=xlPasteValues, Transpose:=True
                    For Counter2 = 1 To Cells(8, Counter1 + 1) - nControl
                        Cells(8 + Counter2, nBlock + 4) = 1
                        For Counter3 = 1 To Cells(8, MischiefCol) - nControl
                            If Cells(8 + Counter2, nBlock + 3) = Cells(8, nBlock + 3 + Counter3) Then _
                                Cells(8 + Counter2, nBlock + 4) = 0
                        Next Counter3
                    Next Counter2
                    With Range(Cells(9, nBlock + 4), Cells(9, nBlock + 4).End(xlDown)).Offset(0, 1)
                        .FormulaR1C1 = "=RC[-1]*rand()"
                        .Copy
                        .PasteSpecial xlPasteValues
                    End With
                    Range(Cells(9, nBlock + 3), Cells(9, nBlock + 5).End(xlDown)).Sort _
                        Key1:=Cells(9, nBlock + 5), Order1:=xlDescending, Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
                    Cells(MischiefRow, MischiefCol) = Cells(9, nBlock + 3)
                    Range(Cells(9 + nControl, MischiefCol), Cells(9 + nControl, MischiefCol).End(xlDown)).Sort _
                        Key1:=Cells(9 + nControl, MischiefCol), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom
                    Cells(9, nBlock + 3) = Cells(3, 1)
                    Range(Cells(9, nBlock + 3), Cells(9, nBlock + 3).End(xlDown)).Copy
                    With Range(Cells(9 + nControl, Counter1 + 1), Cells(9 + nControl, Counter1 + 1).End(xlDown))
                        .PasteSpecial xlPasteValues
                        .Sort Key1:=Cells(9 + nControl, Counter1 + 1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom
                    End With
                    Range(Cells(8, nBlock + 3), Cells(8 + nTreat, nBlock + 5)).Clear
                    Exit For
                End If
            Next Counter1
        End If
    Loop
    
' Check for connectedness
    If nControl = 0 Then
    Range(Cells(7, 2), Cells(7, nBlock + 1)).Copy
    Cells(556, 2).PasteSpecial xlPasteValues
    With Range(Cells(557, 2), Cells(556 + nTreat, 1 + nBlock))
        .FormulaR1C1 = "=if(isna(vlookup(RC1,offset(R9C,0,0,R8C),1,0)),0,1)"
        .Copy
        .PasteSpecial xlPasteValues
    End With
    Cells(556, 1) = nTreat
    Cells(556, nBlock + 3).FormulaR1C1 = "=sum(offset(R557C,0,0,R556C1))"
    Cells(557, nBlock + 2) = Cells(557, 1)
    Cells(557, nBlock + 3) = 1
    Cells(557, nBlock + 4) = 1
    Snitch = False
    TestTreat = 557
    Do While Not Snitch
        For Counter1 = 1 To nTreat
            For Counter2 = 1 To nBlock
                If Not TestTreat = 556 + Counter1 Then
                    If Cells(TestTreat, Counter2 + 1) = 1 And Cells(556 + Counter1, Counter2 + 1) = 1 Then
                        Cells(556 + Counter1, nBlock + 2) = Cells(556 + Counter1, 1)
                        Cells(556 + Counter1, nBlock + 3) = 1
                    End If
                End If
            Next Counter2
        Next Counter1
        If Cells(556, nBlock + 3) = nTreat Then
            Snitch = True
            Exit Do
        End If
        Quaffle = True
        For Counter1 = 1 To nTreat
            If Cells(556 + Counter1, nBlock + 3) = 1 And Not Cells(556 + Counter1, nBlock + 4) = 1 Then
                TestTreat = Counter1 + 556
                Cells(TestTreat, nBlock + 4) = 1
                Cells(557, nBlock + 5) = TestTreat
                Quaffle = False
                Exit For
            End If
        Next Counter1
        If Quaffle = True Then
            Snitch = True
            MischiefManaged = False
        End If
    Loop
    End If ' nControl=0
    Loop

    If Response = 0 Then
' Randomise order of treatments
    For Counter1 = 1 To nBlock
        Range(Cells(9, Counter1 + 1), Cells(8 + Cells(8, Counter1 + 1), Counter1 + 1)).Copy
        Cells(9 + nTreat, Counter1 + 1).PasteSpecial xlPasteValues
        With Range(Cells(9 + nTreat, Counter1 + 2), Cells(8 + nTreat + Cells(8, Counter1 + 1), Counter1 + 2))
            .Formula = "=rand()"
            .Copy
            .PasteSpecial xlPasteValues
        End With
        Range(Cells(9 + nTreat, Counter1 + 1), Cells(8 + nTreat + Cells(8, Counter1 + 1), Counter1 + 2)).Sort _
            Key1:=Cells(9 + nTreat, Counter1 + 2), Order1:=xlAscending, Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
        Range(Cells(9 + nTreat, Counter1 + 1), Cells(8 + nTreat + Cells(8, Counter1 + 1), Counter1 + 1)).Copy
        Cells(9, Counter1 + 1).PasteSpecial xlPasteValues
    Next Counter1

'Tidy up layout sheet
    Worksheets("Design, list").Activate
    Range("A3", "A4").Copy
    Worksheets("Design, layout").Activate
    Range("A3").PasteSpecial xlPasteAll
    Range("B6", Cells(8 + nTreat, nBlock + 1)).Copy
    Cells(6, nBlock + 3).PasteSpecial xlPasteValues
    Range(Cells(nTreat + 9, 1), Cells(nTreat + 9, 1).SpecialCells(xlLastCell)).EntireRow.Delete
    Range("A6", Cells(8 + nTreat, nBlock + 1)).ClearContents
' Put blocks in the right order
    Range(Cells(7, nBlock + 3), Cells(8 + nTreat, 2 * nBlock + 3)).Sort Key1:=Cells(7, nBlock + 3), _
        Order1:=xlAscending, Header:=xlNo, Orientation:=xlLeftToRight
' Add headers and plot numbers
    Cells(7, nBlock + 2).Formula = "=IF('Describe experiment'!B17="""",""Plot"",'Describe experiment'!B17)"
    Cells(6, nBlock + 2).Formula = "=IF('Describe experiment'!B9="""",""Variety"",'Describe experiment'!B9)"
    Rows("6:7").Font.Bold = True
    Counter3 = Application.WorksheetFunction.Max(Range(Cells(8, nBlock + 3), Cells(8, 2 * nBlock + 2)))
    With Range(Cells(9, nBlock + 2), Cells(8 + Counter3, nBlock + 2))
        .FormulaR1C1 = "=R[-1]C+1"
        .Copy
        .PasteSpecial xlPasteValues
    End With
' Borders
    For Counter1 = 1 To nBlock
        With Range(Cells(9, Counter1 + nBlock + 2), Cells(8 + Cells(8, Counter1 + nBlock + 2), Counter1 + nBlock + 2)).Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    Next Counter1
    Range(Cells(8, nBlock + 3), Cells(8, 2 * nBlock + 2)).Copy
    Cells(5, 1).PasteSpecial xlPasteValues
    Rows(8).EntireRow.Delete
    With Range(Cells(8, nBlock + 2), Cells(7 + Counter3, nBlock + 2)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range(Cells(7, nBlock + 2), Cells(7, 2 * nBlock + 2)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range(Cells(7, nBlock + 2), Cells(7, 2 * nBlock + 2)).Borders(xlEdgeTop).Weight = xlMedium
    Range(Cells(7, nBlock + 2), Cells(7, 2 * nBlock + 2)).Borders(xlEdgeBottom).Weight = xlMedium
    Range(Cells(7, nBlock + 2), Cells(7 + Counter3, nBlock + 2)).Borders(xlEdgeRight).Weight = xlMedium
    Range(Cells(7 + Counter3, nBlock + 2), Cells(7 + Counter3, 2 * nBlock + 2)).Borders(xlEdgeBottom).Weight = xlMedium
' Column widths and alignment
    Columns(nBlock + 2).EntireColumn.AutoFit
    ColW = 0
    For Counter1 = 1 To nBlock
        Columns(Counter1 + nBlock + 2).EntireColumn.AutoFit
        If ColW > Columns(Counter1 + nBlock + 2).ColumnWidth Then ColW = Columns(Counter1 + nBlock + 2).ColumnWidth
    Next Counter1
    Columns(1).ColumnWidth = Columns(nBlock + 2).ColumnWidth + 6
    For Counter1 = 1 To nBlock
        Columns(Counter1 + 1).ColumnWidth = ColW + 6
    Next Counter1
' Delete columns to left
    Range(Cells(6, 1), Cells(7 + Counter3, nBlock + 1)).Delete Shift:=xlToLeft
    Range(Cells(1, nBlock + 2), Cells(1, nBlock + 2).End(xlToRight)).ColumnWidth = 8.43
    Range("A7", Cells(Counter3 + 7, nBlock + 1)).HorizontalAlignment = xlCenter
    Rows(6).HorizontalAlignment = xlLeft
    Range("B6").Formula = "=if('Describe experiment'!B14="""",""Block"",'Describe experiment'!B14)"
    With Range("A6", "B7")
        .Copy
        .PasteSpecial xlPasteValues
    End With
' Delete gubbins
    Range(Cells(1, nBlock + 2), Cells(1, nBlock + 2).SpecialCells(xlLastCell)).EntireColumn.Delete
    Range(Cells(Counter3 + 8, 1), Cells(Counter3 + 8, 1).SpecialCells(xlLastCell)).EntireRow.Delete
' Finish
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$2:$7"
        .PrintTitleColumns = ""
        .CenterFooter = "Page &P of &N"
    End With
    With ActiveWindow
        .ScrollRow = 1
        .ScrollColumn = 1
    End With
    Range(Cells(5, 1), Cells(5, nBlock)).Copy
    
' List sheet
    Worksheets("Design, list").Activate
    Range(Cells(1, 2), Cells(1, 2).SpecialCells(xlLastCell)).EntireColumn.Delete
    Range(Cells(5, 1), Cells(5, 1).SpecialCells(xlLastCell)).EntireRow.Delete
    Worksheets("Design, layout").Activate
    Range(Cells(5, 1), Cells(5, nBlock)).Copy
    Worksheets("Design, list").Activate
    Cells(6, 6).PasteSpecial xlPasteValues
' Paste contents
    Range("B6") = "Unit"
    Range("C6").Formula = "='Design, layout'!B6"
    Range("D6").Formula = "='Design, layout'!A7"
    Range("E6").Formula = "='Design, layout'!A6"
    Range("B7") = 1
    Range("B8", Cells(6 + TotalUnits, 2)).FormulaR1C1 = "=R[-1]C+1"
    Range("D7") = 1
    Range("D8", Cells(6 + TotalUnits, 4)).FormulaR1C1 = "=R[-1]C+1"
    Counter3 = 6
    For Counter1 = 1 To nBlock
        Worksheets("Design, layout").Activate
        Range(Cells(8, Counter1 + 1), Cells(7 + Cells(5, Counter1), Counter1 + 1)).Copy
        Worksheets("Design, list").Activate
        Cells(Counter3 + 1, 5).PasteSpecial xlPasteValues
        Cells(Counter3 + 1, 4) = 1
        For Counter2 = 1 To Cells(6, Counter1 + 5)
            Counter3 = Counter3 + 1
            Cells(Counter3, 3) = Counter1
        Next Counter2
    Next Counter1
    Worksheets("Design, layout").Activate
    Range(Cells(5, 1), Cells(5, nBlock)).ClearContents
    Range("D1").Select
    Worksheets("Design, list").Activate
    With Range("B6", Cells(TotalUnits + 6, 5))
        .Copy
        .PasteSpecial xlPasteValues
        .HorizontalAlignment = xlCenter
    End With
    Range(Cells(1, 6), Cells(1, 6).SpecialCells(xlLastCell)).EntireColumn.Delete
' Borders
    With Range("A6", Cells(TotalUnits + 6, 5)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A6", Cells(TotalUnits + 6, 5)).Borders(xlEdgeBottom).Weight = xlMedium
    With Range("A6", "E6")
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Font.Bold = True
    End With
' Column widths
    Range("B6", Range("B6").End(xlDown).End(xlToRight)).EntireColumn.AutoFit
    For Counter1 = 1 To 5
        Columns(Counter1).ColumnWidth = Columns(Counter1 + 1).ColumnWidth + 6
    Next Counter1
' Remove unwanted column
    Range("A6", Range("B6").End(xlDown).Offset(0, -1)).Delete

' Finish
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$2:$6"
        .PrintTitleColumns = ""
        .CenterFooter = "Page &P of &N"
    End With
    Range("D1").Select
    With ActiveWindow
        .ScrollRow = 1
        .ScrollColumn = 1
    End With
    Application.ScreenUpdating = True
    Response = MsgBox("Now save this spreadsheet!", 0, "Edgar II")
    
    Else
        Application.ScreenUpdating = True
End If
End If
End Sub
Sub SuddenStop()
    Application.ScreenUpdating = True
    ActiveWindow.LargeScroll Down:=1
    ActiveWindow.LargeScroll Up:=1
    NoWorries = False
End Sub



============================================================
--- ThisWorkbook.cls ---
============================================================
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True


============================================================
--- Sheet2.cls ---
============================================================
Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True



============================================================
--- Sheet1.cls ---
============================================================
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True


============================================================
--- Sheet3.cls ---
============================================================
Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True


============================================================
--- VBA_P-code.txt ---
============================================================
' Processing file: /home/z/my-project/upload/VariableBlocks.xls
' ===============================================================================
' Module streams:
' _VBA_PROJECT_CUR/VBA/Module1 - 36308 bytes
' Line #0:
' 	Dim (Public) 
' 	VarDefn SuddenStop (As Boolean)
' Line #1:
' 	Option  (Explicit)
' Line #2:
' 	FuncDefn (Sub randomise())
' Line #3:
' 	QuoteRem 0x0000 0x0000 ""
' Line #4:
' 	QuoteRem 0x0000 0x0010 " randomise Macro"
' Line #5:
' 	QuoteRem 0x0000 0x0023 " Macro recorded 31/10/2004 by Brown"
' Line #6:
' 	QuoteRem 0x0000 0x0000 ""
' Line #7:
' Line #8:
' 	Dim 
' 	VarDefn MischiefManaged (As Boolean)
' Line #9:
' 	Dim 
' 	VarDefn snithc (As Boolean)
' Line #10:
' 	Dim 
' 	VarDefn TestTreat (As Boolean)
' Line #11:
' 	Dim 
' 	VarDefn StopLoop (As Boolean)
' Line #12:
' 	Dim 
' 	VarDefn NextCol (As Boolean)
' Line #13:
' 	Dim 
' 	VarDefn CheckDup (As Boolean)
' Line #14:
' 	Dim 
' 	VarDefn _B_var_ColumnWidth (As Single)
' Line #15:
' 	Dim 
' 	VarDefn TotalUnits (As Long)
' Line #16:
' 	Dim 
' 	VarDefn treattreat (As Integer)
' Line #17:
' 	Dim 
' 	VarDefn Counter1 (As Integer)
' Line #18:
' 	Dim 
' 	VarDefn Counter2 (As Integer)
' Line #19:
' 	Dim 
' 	VarDefn Counter3 (As Integer)
' Line #20:
' 	Dim 
' 	VarDefn Response (As Integer)
' Line #21:
' 	Dim 
' 	VarDefn nControl (As Integer)
' Line #22:
' 	Dim 
' 	VarDefn MischiefRow (As Integer)
' Line #23:
' 	Dim 
' 	VarDefn MischiefCol (As Integer)
' Line #24:
' 	Dim 
' 	VarDefn nNonControl (As Integer)
' Line #25:
' 	Dim 
' 	VarDefn nTreat
' Line #26:
' 	Dim 
' 	VarDefn nRep
' Line #27:
' 	Dim 
' 	VarDefn nBlock
' Line #28:
' 	Dim 
' 	VarDefn c
' Line #29:
' 	Dim 
' 	VarDefn TreatName
' Line #30:
' 	Dim 
' 	VarDefn BlockName
' Line #31:
' 	Dim 
' 	VarDefn TreatRange
' Line #32:
' 	Dim 
' 	VarDefn TreatRangeAll
' Line #33:
' 	LitVarSpecial (False)
' 	Ld Application 
' 	MemSt ScreenUpdating 
' Line #34:
' Line #35:
' 	QuoteRem 0x0000 0x0016 " Check errors in input"
' Line #36:
' 	LitStr 0x0013 "Describe experiment"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #37:
' 	SetStmt 
' 	LitStr 0x0003 "B10"
' 	ArgsLd Range 0x0001 
' 	Set nTreat 
' Line #38:
' 	SetStmt 
' 	LitStr 0x0003 "B12"
' 	ArgsLd Range 0x0001 
' 	Set nRep 
' Line #39:
' 	SetStmt 
' 	LitStr 0x0003 "B15"
' 	ArgsLd Range 0x0001 
' 	Set nBlock 
' Line #40:
' 	LitDI2 0x0014 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0207 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall ClearContents 0x0000 
' Line #41:
' 	LitStr 0x0003 "D20"
' 	Ld nTreat 
' 	LitDI2 0x0013 
' 	Add 
' 	LitDI2 0x0004 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	LitStr 0x0003 "Yes"
' 	Ld Application 
' 	MemLd WorksheetFunction 
' 	ArgsMemLd CountIf 0x0002 
' 	St nControl 
' Line #42:
' 	Ld nTreat 
' 	Ld nControl 
' 	Sub 
' 	Paren 
' 	Ld nRep 
' 	Mul 
' 	St nNonControl 
' Line #43:
' 	SetStmt 
' 	LitStr 0x0003 "B20"
' 	Ld nTreat 
' 	MemLd Value 
' 	LitDI2 0x0013 
' 	Add 
' 	LitDI2 0x0004 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	Set TreatName 
' Line #44:
' 	SetStmt 
' 	LitStr 0x0003 "F20"
' 	Ld nBlock 
' 	MemLd Value 
' 	LitDI2 0x0013 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	Set BlockName 
' Line #45:
' 	LitStr 0x0003 "D14"
' 	ArgsLd Range 0x0001 
' 	MemLd Value 
' 	St TotalUnits 
' Line #46:
' 	LitStr 0x0002 "B7"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall Select 0x0000 
' Line #47:
' 	LitVarSpecial (True)
' 	St SuddenStop 
' Line #48:
' 	Ld nTreat 
' 	LitDI2 0x0002 
' 	Lt 
' 	IfBlock 
' Line #49:
' 	LitStr 0x0003 "B10"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall Select 0x0000 
' Line #50:
' 	ArgsCall LargeScroll 0x0000 
' Line #51:
' 	LitStr 0x0014 "Minimum 2 treatments"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #52:
' 	EndIfBlock 
' Line #53:
' 	Ld SuddenStop 
' 	Ld nRep 
' 	LitDI2 0x0002 
' 	Lt 
' 	Ld nRep 
' 	LitDI2 0x0064 
' 	Gt 
' 	Or 
' 	Paren 
' 	And 
' 	IfBlock 
' Line #54:
' 	LitStr 0x0003 "B12"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall Select 0x0000 
' Line #55:
' 	ArgsCall LargeScroll 0x0000 
' Line #56:
' 	LitStr 0x001C "2-100 reps of each treatment"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #57:
' 	EndIfBlock 
' Line #58:
' 	Ld SuddenStop 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Lt 
' 	And 
' 	IfBlock 
' Line #59:
' 	LitStr 0x0003 "B15"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall Select 0x0000 
' Line #60:
' 	ArgsCall LargeScroll 0x0000 
' Line #61:
' 	LitStr 0x000F "Minimum 1 block"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #62:
' 	EndIfBlock 
' Line #63:
' 	Ld SuddenStop 
' 	Ld TotalUnits 
' 	LitDI2 0x1388 
' 	Gt 
' 	And 
' 	IfBlock 
' Line #64:
' 	ArgsCall LargeScroll 0x0000 
' Line #65:
' 	LitStr 0x0017 "Max 5000 units in total"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #66:
' 	EndIfBlock 
' Line #67:
' 	Ld SuddenStop 
' 	LitStr 0x0003 "D15"
' 	ArgsLd Range 0x0001 
' 	LitStr 0x0003 "D14"
' 	ArgsLd Range 0x0001 
' 	Ne 
' 	And 
' 	IfBlock 
' Line #68:
' 	ArgsCall LargeScroll 0x0000 
' Line #69:
' 	LitStr 0x0023 "Incorrect number of plots in design"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #70:
' 	EndIfBlock 
' Line #71:
' 	Ld SuddenStop 
' 	IfBlock 
' Line #72:
' 	Ld nTreat 
' 	LitDI2 0x01F4 
' 	Lt 
' 	IfBlock 
' Line #73:
' 	LitDI2 0x0014 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0207 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall ClearContents 0x0000 
' Line #74:
' 	LitStr 0x0002 "No"
' 	LitDI2 0x0014 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0004 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0207 
' 	LitDI2 0x0004 
' 	ArgsLd Cells 0x0002 
' 	ArgsSt Range 0x0002 
' Line #75:
' 	EndIfBlock 
' Line #76:
' 	Ld nRep 
' 	LitDI2 0x0064 
' 	Lt 
' 	If 
' 	BoSImplicit 
' 	LitDI2 0x0014 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0207 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall ClearContents 0x0000 
' 	EndIf 
' Line #77:
' 	StartWithExpr 
' 	Ld ActiveWindow 
' 	With 
' Line #78:
' 	LitDI2 0x0001 
' 	MemStWith ScrollRow 
' Line #79:
' 	LitDI2 0x0001 
' 	MemStWith ScrollColumn 
' Line #80:
' 	EndWith 
' Line #81:
' Line #82:
' 	QuoteRem 0x0000 0x0038 " Need to test if the design is capable of being analysed"
' Line #83:
' 	LitVarSpecial (False)
' 	St MischiefManaged 
' Line #84:
' 	Ld MischiefManaged 
' 	DoUnitil 
' Line #85:
' Line #86:
' 	QuoteRem 0x0000 0x0014 " Design sheet header"
' Line #87:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #88:
' 	LitStr 0x0001 "x"
' 	LitStr 0x0002 "A3"
' 	ArgsSt Range 0x0001 
' Line #89:
' 	LitStr 0x0002 "A3"
' 	Ld xlLastCell 
' 	LitStr 0x0002 "A3"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireRow 
' 	ArgsMemCall Delete 0x0000 
' Line #90:
' 	LitStr 0x0028 "="Experiment: "&'Describe experiment'!B7"
' 	LitStr 0x0002 "A3"
' 	ArgsLd Range 0x0001 
' 	MemSt Formula 
' Line #91:
' 	LitStr 0x0026 "="Designed: "&'Describe experiment'!A3"
' 	LitStr 0x0002 "A4"
' 	ArgsLd Range 0x0001 
' 	MemSt Formula 
' Line #92:
' 	LitStr 0x0002 "A3"
' 	LitStr 0x0002 "A4"
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #93:
' 	Ld xlPasteValues 
' 	LitStr 0x0002 "A3"
' 	LitStr 0x0002 "A4"
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #94:
' 	StartWithExpr 
' 	LitStr 0x0003 "3:4"
' 	ArgsLd Rows 0x0001 
' 	With 
' Line #95:
' 	LitStr 0x0005 "Arial"
' 	MemLdWith Font 
' 	MemSt Name 
' Line #96:
' 	LitDI2 0x000C 
' 	MemLdWith Font 
' 	MemSt Size 
' Line #97:
' 	LitDI2 0x000F 
' 	MemStWith RowHeight 
' Line #98:
' 	EndWith 
' Line #99:
' Line #100:
' 	QuoteRem 0x0000 0x001E " Random numbers and treatments"
' Line #101:
' 	Ld TreatName 
' 	ArgsMemCall Copy 0x0000 
' Line #102:
' 	Ld xlPasteValues 
' 	ParamNamed Paste 
' 	LitStr 0x0002 "A7"
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemLd Range 0x0001 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #103:
' 	Ld xlToLeft 
' 	ParamNamed Shift 
' 	LitStr 0x0002 "A7"
' 	Ld nTreat 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Delete 0x0001 
' Line #104:
' 	SetStmt 
' 	LitDI2 0x0007 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nTreat 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	Set TreatRange 
' Line #105:
' 	LitDI2 0x0000 
' 	St Counter1 
' Line #106:
' 	StartForVariable 
' 	Ld c 
' 	EndForVariable 
' 	Ld TreatRange 
' 	ForEach 
' Line #107:
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	St Counter1 
' Line #108:
' 	Ld c 
' 	LitStr 0x0000 ""
' 	Eq 
' 	If 
' 	BoSImplicit 
' 	Ld Counter1 
' 	St c 
' 	EndIf 
' Line #109:
' 	StartForVariable 
' 	Ld c 
' 	EndForVariable 
' 	NextVar 
' Line #110:
' 	LineCont 0x0004 1F 00 08 00
' 	LitStr 0x0002 "A7"
' 	ArgsLd Range 0x0001 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	LitStr 0x0002 "A7"
' 	Ld xlDown 
' 	LitStr 0x0002 "B7"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #111:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nTreat 
' 	LitDI2 0x0001 
' 	Sub 
' 	For 
' Line #112:
' 	LitDI2 0x0006 
' 	Ld Counter1 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	Ld Counter1 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Eq 
' 	IfBlock 
' Line #113:
' 	LitStr 0x0025 "All treatment names must be different"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #114:
' 	LitStr 0x0013 "Describe experiment"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #115:
' 	ExitDo 
' Line #116:
' 	EndIfBlock 
' Line #117:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #118:
' Line #119:
' 	LineCont 0x0004 1F 00 08 00
' 	LitStr 0x0002 "B7"
' 	ArgsLd Range 0x0001 
' 	ParamNamed Key1 
' 	Ld xlDescending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	LitStr 0x0002 "A7"
' 	Ld xlDown 
' 	LitStr 0x0002 "B7"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #120:
' Line #121:
' 	QuoteRem 0x0000 0x0014 " Set up Layout sheet"
' Line #122:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #123:
' 	LitR8 0x8F5C 0xF5C2 0xDC28 0x4020 
' 	Ld Columns 
' 	MemSt ColumnWidth 
' Line #124:
' 	LitStr 0x0001 "x"
' 	LitStr 0x0002 "A3"
' 	ArgsSt Range 0x0001 
' Line #125:
' 	LitStr 0x0002 "A3"
' 	Ld xlLastCell 
' 	LitStr 0x0002 "A3"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireRow 
' 	ArgsMemCall Delete 0x0000 
' Line #126:
' 	Ld xlNone 
' 	LitStr 0x0002 "A3"
' 	Ld xlLastCell 
' 	LitStr 0x0002 "A3"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd Borders 
' 	MemSt LineStyle 
' Line #127:
' 	Ld BlockName 
' 	ArgsMemCall Copy 0x0000 
' Line #128:
' 	Ld xlPasteValues 
' 	ParamNamed Paste 
' 	LitVarSpecial (True)
' 	ParamNamed Transpose 
' 	LitStr 0x0002 "B7"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall PasteSpecial 0x0002 
' Line #129:
' 	LineCont 0x0008 1E 00 08 00 2A 00 08 00
' 	LitStr 0x0002 "B8"
' 	ArgsLd Range 0x0001 
' 	ParamNamed Key1 
' 	Ld xlDescending 
' 	ParamNamed Order1 
' 	Ld xlGuess 
' 	ParamNamed Header 
' 	LitDI2 0x0001 
' 	ParamNamed OrderCustom 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlLeftToRight 
' 	ParamNamed Orientation 
' 	Ld xlSortNormal 
' 	ParamNamed DataOption1 
' 	LitStr 0x0002 "B7"
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0007 
' Line #130:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #131:
' 	QuoteRem 0x0000 0x001A " Controls into every block"
' Line #132:
' 	Ld nControl 
' 	LitDI2 0x0000 
' 	Gt 
' 	IfBlock 
' Line #133:
' 	LitStr 0x0002 "A7"
' 	Ld nControl 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #134:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #135:
' 	Ld xlPasteValues 
' 	LitStr 0x0002 "B9"
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #136:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #137:
' 	LitStr 0x0002 "A7"
' 	Ld nControl 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Clear 0x0000 
' Line #138:
' 	EndIfBlock 
' Line #139:
' 	QuoteRem 0x0000 0x0020 " Copy non-controls in List sheet"
' Line #140:
' 	SetStmt 
' 	LitDI2 0x0006 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0001 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nTreat 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	Set TreatRange 
' Line #141:
' 	SetStmt 
' 	Ld nControl 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nNonControl 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	Set TreatRangeAll 
' Line #142:
' 	Ld TreatRange 
' 	ArgsMemCall Copy 0x0000 
' Line #143:
' 	Ld xlPasteValues 
' 	Ld TreatRangeAll 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #144:
' 	Ld xlPasteValues 
' 	ParamNamed Paste 
' 	LitDI2 0x022D 
' 	LitDI2 0x0001 
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #145:
' Line #146:
' 	QuoteRem 0x0000 0x001E " Block numbers into List sheet"
' Line #147:
' 	LitStr 0x0002 "B7"
' 	Ld nTreat 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall ClearContents 0x0000 
' Line #148:
' 	Ld BlockName 
' 	ArgsMemCall Copy 0x0000 
' Line #149:
' 	Ld xlPasteValues 
' 	ParamNamed Paste 
' 	LitStr 0x0002 "D7"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #150:
' 	LineCont 0x0004 1F 00 08 00
' 	LitStr 0x0002 "E7"
' 	ArgsLd Range 0x0001 
' 	ParamNamed Key1 
' 	Ld xlDescending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	LitStr 0x0002 "D7"
' 	Ld xlDown 
' 	LitStr 0x0002 "E7"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #151:
' 	StartForVariable 
' 	Ld c 
' 	EndForVariable 
' 	LitStr 0x0002 "E7"
' 	Ld nBlock 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ForEach 
' Line #152:
' 	Ld c 
' 	Ld nControl 
' 	Sub 
' 	St c 
' Line #153:
' 	StartForVariable 
' 	Ld c 
' 	EndForVariable 
' 	NextVar 
' Line #154:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #155:
' 	Ld Counter1 
' 	LitDI2 0x0005 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Ld Counter1 
' 	LitDI2 0x0005 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsSt Cells 0x0002 
' Line #156:
' 	Ld Counter1 
' 	LitDI2 0x0005 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsSt Cells 0x0002 
' Line #157:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #158:
' 	QuoteRem 0x0000 0x001D " Select treatments for blocks"
' Line #159:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #160:
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0000 
' 	Gt 
' 	IfBlock 
' Line #161:
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	Ld nControl 
' 	Ld nNonControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	Eq 
' 	Paren 
' 	Not 
' 	IfBlock 
' Line #162:
' 	LineCont 0x000C 14 00 14 00 21 00 14 00 35 00 14 00
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld nNonControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #163:
' 	EndIfBlock 
' Line #164:
' 	LineCont 0x0008 14 00 10 00 22 00 10 00
' 	LitStr 0x001B "=if(RC1=R[-1]C1,R[-1]C+1,0)"
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld nNonControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemSt FormulaR1C1 
' Line #165:
' 	LineCont 0x0008 14 00 10 00 22 00 10 00
' 	LitStr 0x0022 "=if(RC1=R[-1]C1,rand()+RC2,rand())"
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld nNonControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemSt FormulaR1C1 
' Line #166:
' 	LineCont 0x0004 15 00 10 00
' 	StartWithExpr 
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld nNonControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	With 
' Line #167:
' 	ArgsMemCallWith Copy 0x0000 
' Line #168:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #169:
' 	EndWith 
' Line #170:
' 	LineCont 0x0004 14 00 10 00
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld nNonControl 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #171:
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	St Counter2 
' Line #172:
' 	LineCont 0x0004 14 00 10 00
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld Counter2 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #173:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #174:
' 	Ld xlPasteValues 
' 	ParamNamed Paste 
' 	Ld nControl 
' 	LitDI2 0x0009 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #175:
' 	LineCont 0x0004 1F 00 10 00
' 	Ld nControl 
' 	LitDI2 0x0009 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	Ld nControl 
' 	LitDI2 0x0009 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlDown 
' 	Ld nControl 
' 	LitDI2 0x0009 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #176:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #177:
' 	LineCont 0x0004 14 00 10 00
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0007 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Ld Counter1 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0007 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0003 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Clear 0x0000 
' Line #178:
' 	EndIfBlock 
' Line #179:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #180:
' Line #181:
' 	QuoteRem 0x0000 0x0015 " Check for duplicates"
' Line #182:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #183:
' 	LitVarSpecial (False)
' 	St MischiefManaged 
' Line #184:
' 	Ld MischiefManaged 
' 	DoUnitil 
' Line #185:
' 	LitVarSpecial (False)
' 	St StopLoop 
' Line #186:
' 	LitVarSpecial (False)
' 	St CheckDup 
' Line #187:
' 	Ld StopLoop 
' 	DoUnitil 
' Line #188:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	LitDI2 0x0001 
' 	UMi 
' 	ForStep 
' Line #189:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	MemLd Value 
' 	Ld nControl 
' 	Sub 
' 	For 
' Line #190:
' 	LineCont 0x0004 11 00 18 00
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0008 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitStr 0x0001 """
' 	Ne 
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0009 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitStr 0x0001 """
' 	Ne 
' 	And 
' 	Paren 
' 	IfBlock 
' Line #191:
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0008 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0009 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Eq 
' 	Paren 
' 	IfBlock 
' Line #192:
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0008 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitStr 0x0002 "A3"
' 	ArgsSt Range 0x0001 
' Line #193:
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0008 
' 	Add 
' 	St MischiefRow 
' Line #194:
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	St MischiefCol 
' Line #195:
' 	LitVarSpecial (True)
' 	St CheckDup 
' Line #196:
' 	ExitDo 
' Line #197:
' 	EndIfBlock 
' Line #198:
' 	EndIfBlock 
' Line #199:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	NextVar 
' Line #200:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #201:
' 	LitVarSpecial (True)
' 	St StopLoop 
' Line #202:
' 	LitVarSpecial (True)
' 	St MischiefManaged 
' Line #203:
' 	Loop 
' Line #204:
' 	Ld CheckDup 
' 	IfBlock 
' Line #205:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #206:
' 	LitVarSpecial (False)
' 	St NextCol 
' Line #207:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	For 
' Line #208:
' 	Ld Counter2 
' 	Ld nControl 
' 	Add 
' 	LitDI2 0x0008 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0003 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Eq 
' 	IfBlock 
' Line #209:
' 	LitVarSpecial (True)
' 	St NextCol 
' Line #210:
' 	ExitFor 
' Line #211:
' 	EndIfBlock 
' Line #212:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	NextVar 
' Line #213:
' 	Ld NextCol 
' 	Not 
' 	IfBlock 
' Line #214:
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #215:
' 	Ld xlPasteValues 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #216:
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Add 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #217:
' 	Ld xlPasteValues 
' 	ParamNamed Paste 
' 	LitVarSpecial (True)
' 	ParamNamed Transpose 
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0002 
' Line #218:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Sub 
' 	For 
' Line #219:
' 	LitDI2 0x0001 
' 	LitDI2 0x0008 
' 	Ld Counter2 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #220:
' 	StartForVariable 
' 	Ld Counter3 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	LitDI2 0x0008 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	Ld nControl 
' 	Sub 
' 	For 
' Line #221:
' 	LineCont 0x0004 17 00 20 00
' 	LitDI2 0x0008 
' 	Ld Counter2 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	Ld Counter3 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Eq 
' 	If 
' 	BoSImplicit 
' 	LitDI2 0x0000 
' 	LitDI2 0x0008 
' 	Ld Counter2 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsSt Cells 0x0002 
' 	EndIf 
' Line #222:
' 	StartForVariable 
' 	Ld Counter3 
' 	EndForVariable 
' 	NextVar 
' Line #223:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	NextVar 
' Line #224:
' 	StartWithExpr 
' 	LitDI2 0x0000 
' 	LitDI2 0x0001 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlDown 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemLd Offset 0x0002 
' 	With 
' Line #225:
' 	LitStr 0x000E "=RC[-1]*rand()"
' 	MemStWith FormulaR1C1 
' Line #226:
' 	ArgsMemCallWith Copy 0x0000 
' Line #227:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #228:
' 	EndWith 
' Line #229:
' 	LineCont 0x0004 1B 00 18 00
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0005 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlDescending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlDown 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0005 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #230:
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld MischiefRow 
' 	Ld MischiefCol 
' 	ArgsSt Cells 0x0002 
' Line #231:
' 	LineCont 0x0004 1B 00 18 00
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	Ld xlDown 
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld MischiefCol 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0004 
' Line #232:
' 	LitDI2 0x0003 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #233:
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlDown 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #234:
' 	StartWithExpr 
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlDown 
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	With 
' Line #235:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #236:
' 	LitDI2 0x0009 
' 	Ld nControl 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	ArgsMemCallWith Sort 0x0004 
' Line #237:
' 	EndWith 
' Line #238:
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0005 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Clear 0x0000 
' Line #239:
' 	ExitFor 
' Line #240:
' 	EndIfBlock 
' Line #241:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #242:
' 	EndIfBlock 
' Line #243:
' 	Loop 
' Line #244:
' Line #245:
' 	QuoteRem 0x0000 0x0018 " Check for connectedness"
' Line #246:
' 	Ld nControl 
' 	LitDI2 0x0000 
' 	Eq 
' 	IfBlock 
' Line #247:
' 	LitDI2 0x0007 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #248:
' 	Ld xlPasteValues 
' 	LitDI2 0x022C 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #249:
' 	StartWithExpr 
' 	LitDI2 0x022D 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x022C 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	With 
' Line #250:
' 	LitStr 0x0033 "=if(isna(vlookup(RC1,offset(R9C,0,0,R8C),1,0)),0,1)"
' 	MemStWith FormulaR1C1 
' Line #251:
' 	ArgsMemCallWith Copy 0x0000 
' Line #252:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #253:
' 	EndWith 
' Line #254:
' 	Ld nTreat 
' 	LitDI2 0x022C 
' 	LitDI2 0x0001 
' 	ArgsSt Cells 0x0002 
' Line #255:
' 	LitStr 0x001E "=sum(offset(R557C,0,0,R556C1))"
' 	LitDI2 0x022C 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	MemSt FormulaR1C1 
' Line #256:
' 	LitDI2 0x022D 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x022D 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #257:
' 	LitDI2 0x0001 
' 	LitDI2 0x022D 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #258:
' 	LitDI2 0x0001 
' 	LitDI2 0x022D 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #259:
' 	LitVarSpecial (False)
' 	St TestTreat 
' Line #260:
' 	LitDI2 0x022D 
' 	St treattreat 
' Line #261:
' 	Ld TestTreat 
' 	Not 
' 	DoWhile 
' Line #262:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nTreat 
' 	For 
' Line #263:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #264:
' 	Ld treattreat 
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	Eq 
' 	Not 
' 	IfBlock 
' Line #265:
' 	Ld treattreat 
' 	Ld Counter2 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0001 
' 	Eq 
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	Ld Counter2 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0001 
' 	Eq 
' 	And 
' 	IfBlock 
' Line #266:
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #267:
' 	LitDI2 0x0001 
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #268:
' 	EndIfBlock 
' Line #269:
' 	EndIfBlock 
' Line #270:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	NextVar 
' Line #271:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #272:
' 	LitDI2 0x022C 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld nTreat 
' 	Eq 
' 	IfBlock 
' Line #273:
' 	LitVarSpecial (True)
' 	St TestTreat 
' Line #274:
' 	ExitDo 
' Line #275:
' 	EndIfBlock 
' Line #276:
' 	LitVarSpecial (True)
' 	St snithc 
' Line #277:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nTreat 
' 	For 
' Line #278:
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0001 
' 	Eq 
' 	LitDI2 0x022C 
' 	Ld Counter1 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0001 
' 	Eq 
' 	Not 
' 	And 
' 	IfBlock 
' Line #279:
' 	Ld Counter1 
' 	LitDI2 0x022C 
' 	Add 
' 	St treattreat 
' Line #280:
' 	LitDI2 0x0001 
' 	Ld treattreat 
' 	Ld nBlock 
' 	LitDI2 0x0004 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #281:
' 	Ld treattreat 
' 	LitDI2 0x022D 
' 	Ld nBlock 
' 	LitDI2 0x0005 
' 	Add 
' 	ArgsSt Cells 0x0002 
' Line #282:
' 	LitVarSpecial (False)
' 	St snithc 
' Line #283:
' 	ExitFor 
' Line #284:
' 	EndIfBlock 
' Line #285:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #286:
' 	Ld snithc 
' 	LitVarSpecial (True)
' 	Eq 
' 	IfBlock 
' Line #287:
' 	LitVarSpecial (True)
' 	St TestTreat 
' Line #288:
' 	LitVarSpecial (False)
' 	St MischiefManaged 
' Line #289:
' 	EndIfBlock 
' Line #290:
' 	Loop 
' Line #291:
' 	EndIfBlock 
' 	QuoteRem 0x000B 0x000B " nControl=0"
' Line #292:
' 	Loop 
' Line #293:
' Line #294:
' 	Ld Response 
' 	LitDI2 0x0000 
' 	Eq 
' 	IfBlock 
' Line #295:
' 	QuoteRem 0x0000 0x001E " Randomise order of treatments"
' Line #296:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #297:
' 	LitDI2 0x0009 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #298:
' 	Ld xlPasteValues 
' 	LitDI2 0x0009 
' 	Ld nTreat 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #299:
' 	StartWithExpr 
' 	LitDI2 0x0009 
' 	Ld nTreat 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	With 
' Line #300:
' 	LitStr 0x0007 "=rand()"
' 	MemStWith Formula 
' Line #301:
' 	ArgsMemCallWith Copy 0x0000 
' Line #302:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #303:
' 	EndWith 
' Line #304:
' 	LineCont 0x0004 23 00 0C 00
' 	LitDI2 0x0009 
' 	Ld nTreat 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	LitVarSpecial (False)
' 	ParamNamed MatchCase 
' 	Ld xlTopToBottom 
' 	ParamNamed Orientation 
' 	LitDI2 0x0009 
' 	Ld nTreat 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0005 
' Line #305:
' 	LitDI2 0x0009 
' 	Ld nTreat 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #306:
' 	Ld xlPasteValues 
' 	LitDI2 0x0009 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #307:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #308:
' Line #309:
' 	QuoteRem 0x0000 0x0014 "Tidy up layout sheet"
' Line #310:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #311:
' 	LitStr 0x0002 "A3"
' 	LitStr 0x0002 "A4"
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #312:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #313:
' 	Ld xlPasteAll 
' 	LitStr 0x0002 "A3"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #314:
' 	LitStr 0x0002 "B6"
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #315:
' 	Ld xlPasteValues 
' 	LitDI2 0x0006 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #316:
' 	Ld nTreat 
' 	LitDI2 0x0009 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld xlLastCell 
' 	Ld nTreat 
' 	LitDI2 0x0009 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireRow 
' 	ArgsMemCall Delete 0x0000 
' Line #317:
' 	LitStr 0x0002 "A6"
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall ClearContents 0x0000 
' Line #318:
' 	QuoteRem 0x0000 0x001E " Put blocks in the right order"
' Line #319:
' 	LineCont 0x0004 25 00 08 00
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ParamNamed Key1 
' 	Ld xlAscending 
' 	ParamNamed Order1 
' 	Ld xlNo 
' 	ParamNamed Header 
' 	Ld xlLeftToRight 
' 	ParamNamed Orientation 
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld nTreat 
' 	Add 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Sort 0x0004 
' Line #320:
' 	QuoteRem 0x0000 0x001D " Add headers and plot numbers"
' Line #321:
' 	LitStr 0x0042 "=IF('Describe experiment'!B17="","Plot",'Describe experiment'!B17)"
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	MemSt Formula 
' Line #322:
' 	LitStr 0x0043 "=IF('Describe experiment'!B9="","Variety",'Describe experiment'!B9)"
' 	LitDI2 0x0006 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	MemSt Formula 
' Line #323:
' 	LitVarSpecial (True)
' 	LitStr 0x0003 "6:7"
' 	ArgsLd Rows 0x0001 
' 	MemLd Font 
' 	MemSt Bold 
' Line #324:
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	Ld Application 
' 	MemLd WorksheetFunction 
' 	ArgsMemLd Max 0x0001 
' 	St Counter3 
' Line #325:
' 	StartWithExpr 
' 	LitDI2 0x0009 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	Ld Counter3 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	With 
' Line #326:
' 	LitStr 0x0009 "=R[-1]C+1"
' 	MemStWith FormulaR1C1 
' Line #327:
' 	ArgsMemCallWith Copy 0x0000 
' Line #328:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #329:
' 	EndWith 
' Line #330:
' 	QuoteRem 0x0000 0x0008 " Borders"
' Line #331:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #332:
' 	StartWithExpr 
' 	LitDI2 0x0009 
' 	Ld Counter1 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemLd Borders 
' 	With 
' Line #333:
' 	Ld xlContinuous 
' 	MemStWith LineStyle 
' Line #334:
' 	Ld xlThin 
' 	MemStWith Weight 
' Line #335:
' 	Ld xlAutomatic 
' 	MemStWith ColorIndex 
' Line #336:
' 	EndWith 
' Line #337:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #338:
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0003 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0008 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #339:
' 	Ld xlPasteValues 
' 	LitDI2 0x0005 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #340:
' 	LitDI2 0x0008 
' 	ArgsLd Rows 0x0001 
' 	MemLd EntireRow 
' 	ArgsMemCall Delete 0x0000 
' Line #341:
' 	StartWithExpr 
' 	LitDI2 0x0008 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	Ld Counter3 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemLd Borders 
' 	With 
' Line #342:
' 	Ld xlContinuous 
' 	MemStWith LineStyle 
' Line #343:
' 	Ld xlThin 
' 	MemStWith Weight 
' Line #344:
' 	Ld xlAutomatic 
' 	MemStWith ColorIndex 
' Line #345:
' 	EndWith 
' Line #346:
' 	StartWithExpr 
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemLd Borders 
' 	With 
' Line #347:
' 	Ld xlContinuous 
' 	MemStWith LineStyle 
' Line #348:
' 	Ld xlThin 
' 	MemStWith Weight 
' Line #349:
' 	Ld xlAutomatic 
' 	MemStWith ColorIndex 
' Line #350:
' 	EndWith 
' Line #351:
' 	Ld xlMedium 
' 	Ld xlEdgeTop 
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemLd Borders 0x0001 
' 	MemSt Weight 
' Line #352:
' 	Ld xlMedium 
' 	Ld xlEdgeBottom 
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemLd Borders 0x0001 
' 	MemSt Weight 
' Line #353:
' 	Ld xlMedium 
' 	Ld xlEdgeRight 
' 	LitDI2 0x0007 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	Ld Counter3 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemLd Borders 0x0001 
' 	MemSt Weight 
' Line #354:
' 	Ld xlMedium 
' 	Ld xlEdgeBottom 
' 	LitDI2 0x0007 
' 	Ld Counter3 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	Ld Counter3 
' 	Add 
' 	LitDI2 0x0002 
' 	Ld nBlock 
' 	Mul 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemLd Borders 0x0001 
' 	MemSt Weight 
' Line #355:
' 	QuoteRem 0x0000 0x001C " Column widths and alignment"
' Line #356:
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemLd EntireColumn 
' 	ArgsMemCall AutoFit 0x0000 
' Line #357:
' 	LitDI2 0x0000 
' 	St _B_var_ColumnWidth 
' Line #358:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #359:
' 	Ld Counter1 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemLd EntireColumn 
' 	ArgsMemCall AutoFit 0x0000 
' Line #360:
' 	Ld _B_var_ColumnWidth 
' 	Ld Counter1 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemLd ColumnWidth 
' 	Gt 
' 	If 
' 	BoSImplicit 
' 	Ld Counter1 
' 	Ld nBlock 
' 	Add 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemLd ColumnWidth 
' 	St _B_var_ColumnWidth 
' 	EndIf 
' Line #361:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #362:
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemLd ColumnWidth 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Columns 0x0001 
' 	MemSt ColumnWidth 
' Line #363:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #364:
' 	Ld _B_var_ColumnWidth 
' 	LitDI2 0x0006 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemSt ColumnWidth 
' Line #365:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #366:
' 	QuoteRem 0x0000 0x0017 " Delete columns to left"
' Line #367:
' 	Ld xlToLeft 
' 	ParamNamed Shift 
' 	LitDI2 0x0006 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	Ld Counter3 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Delete 0x0001 
' Line #368:
' 	LitR8 0x8F5C 0xF5C2 0xDC28 0x4020 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlToRight 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemSt ColumnWidth 
' Line #369:
' 	Ld xlCenter 
' 	LitStr 0x0002 "A7"
' 	Ld Counter3 
' 	LitDI2 0x0007 
' 	Add 
' 	Ld nBlock 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemSt HorizontalAlignment 
' Line #370:
' 	Ld xlLeft 
' 	LitDI2 0x0006 
' 	ArgsLd Rows 0x0001 
' 	MemSt HorizontalAlignment 
' Line #371:
' 	LitStr 0x0043 "=if('Describe experiment'!B14="","Block",'Describe experiment'!B14)"
' 	LitStr 0x0002 "B6"
' 	ArgsLd Range 0x0001 
' 	MemSt Formula 
' Line #372:
' 	StartWithExpr 
' 	LitStr 0x0002 "A6"
' 	LitStr 0x0002 "B7"
' 	ArgsLd Range 0x0002 
' 	With 
' Line #373:
' 	ArgsMemCallWith Copy 0x0000 
' Line #374:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #375:
' 	EndWith 
' Line #376:
' 	QuoteRem 0x0000 0x000F " Delete gubbins"
' Line #377:
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	Ld xlLastCell 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	LitDI2 0x0002 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireColumn 
' 	ArgsMemCall Delete 0x0000 
' Line #378:
' 	Ld Counter3 
' 	LitDI2 0x0008 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld xlLastCell 
' 	Ld Counter3 
' 	LitDI2 0x0008 
' 	Add 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireRow 
' 	ArgsMemCall Delete 0x0000 
' Line #379:
' 	QuoteRem 0x0000 0x0007 " Finish"
' Line #380:
' 	StartWithExpr 
' 	Ld ActiveSheet 
' 	MemLd PageSetup 
' 	With 
' Line #381:
' 	LitStr 0x0005 "$2:$7"
' 	MemStWith PrintTitleRows 
' Line #382:
' 	LitStr 0x0000 ""
' 	MemStWith PrintTitleColumns 
' Line #383:
' 	LitStr 0x000D "Page &P of &N"
' 	MemStWith CenterFooter 
' Line #384:
' 	EndWith 
' Line #385:
' 	StartWithExpr 
' 	Ld ActiveWindow 
' 	With 
' Line #386:
' 	LitDI2 0x0001 
' 	MemStWith ScrollRow 
' Line #387:
' 	LitDI2 0x0001 
' 	MemStWith ScrollColumn 
' Line #388:
' 	EndWith 
' Line #389:
' 	LitDI2 0x0005 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0005 
' 	Ld nBlock 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #390:
' Line #391:
' 	QuoteRem 0x0000 0x000B " List sheet"
' Line #392:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #393:
' 	LitDI2 0x0001 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	Ld xlLastCell 
' 	LitDI2 0x0001 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireColumn 
' 	ArgsMemCall Delete 0x0000 
' Line #394:
' 	LitDI2 0x0005 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	Ld xlLastCell 
' 	LitDI2 0x0005 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireRow 
' 	ArgsMemCall Delete 0x0000 
' Line #395:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #396:
' 	LitDI2 0x0005 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0005 
' 	Ld nBlock 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #397:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #398:
' 	Ld xlPasteValues 
' 	LitDI2 0x0006 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #399:
' 	QuoteRem 0x0000 0x000F " Paste contents"
' Line #400:
' 	LitStr 0x0004 "Unit"
' 	LitStr 0x0002 "B6"
' 	ArgsSt Range 0x0001 
' Line #401:
' 	LitStr 0x0014 "='Design, layout'!B6"
' 	LitStr 0x0002 "C6"
' 	ArgsLd Range 0x0001 
' 	MemSt Formula 
' Line #402:
' 	LitStr 0x0014 "='Design, layout'!A7"
' 	LitStr 0x0002 "D6"
' 	ArgsLd Range 0x0001 
' 	MemSt Formula 
' Line #403:
' 	LitStr 0x0014 "='Design, layout'!A6"
' 	LitStr 0x0002 "E6"
' 	ArgsLd Range 0x0001 
' 	MemSt Formula 
' Line #404:
' 	LitDI2 0x0001 
' 	LitStr 0x0002 "B7"
' 	ArgsSt Range 0x0001 
' Line #405:
' 	LitStr 0x0009 "=R[-1]C+1"
' 	LitStr 0x0002 "B8"
' 	LitDI2 0x0006 
' 	Ld TotalUnits 
' 	Add 
' 	LitDI2 0x0002 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemSt FormulaR1C1 
' Line #406:
' 	LitDI2 0x0001 
' 	LitStr 0x0002 "D7"
' 	ArgsSt Range 0x0001 
' Line #407:
' 	LitStr 0x0009 "=R[-1]C+1"
' 	LitStr 0x0002 "D8"
' 	LitDI2 0x0006 
' 	Ld TotalUnits 
' 	Add 
' 	LitDI2 0x0004 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemSt FormulaR1C1 
' Line #408:
' 	LitDI2 0x0006 
' 	St Counter3 
' Line #409:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	Ld nBlock 
' 	For 
' Line #410:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #411:
' 	LitDI2 0x0008 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0007 
' 	LitDI2 0x0005 
' 	Ld Counter1 
' 	ArgsLd Cells 0x0002 
' 	Add 
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Copy 0x0000 
' Line #412:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #413:
' 	Ld xlPasteValues 
' 	Ld Counter3 
' 	LitDI2 0x0001 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemCall PasteSpecial 0x0001 
' Line #414:
' 	LitDI2 0x0001 
' 	Ld Counter3 
' 	LitDI2 0x0001 
' 	Add 
' 	LitDI2 0x0004 
' 	ArgsSt Cells 0x0002 
' Line #415:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	LitDI2 0x0006 
' 	Ld Counter1 
' 	LitDI2 0x0005 
' 	Add 
' 	ArgsLd Cells 0x0002 
' 	For 
' Line #416:
' 	Ld Counter3 
' 	LitDI2 0x0001 
' 	Add 
' 	St Counter3 
' Line #417:
' 	Ld Counter1 
' 	Ld Counter3 
' 	LitDI2 0x0003 
' 	ArgsSt Cells 0x0002 
' Line #418:
' 	StartForVariable 
' 	Ld Counter2 
' 	EndForVariable 
' 	NextVar 
' Line #419:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #420:
' 	LitStr 0x000E "Design, layout"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #421:
' 	LitDI2 0x0005 
' 	LitDI2 0x0001 
' 	ArgsLd Cells 0x0002 
' 	LitDI2 0x0005 
' 	Ld nBlock 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall ClearContents 0x0000 
' Line #422:
' 	LitStr 0x0002 "D1"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall Select 0x0000 
' Line #423:
' 	LitStr 0x000C "Design, list"
' 	ArgsLd Worksheets 0x0001 
' 	ArgsMemCall Activate 0x0000 
' Line #424:
' 	StartWithExpr 
' 	LitStr 0x0002 "B6"
' 	Ld TotalUnits 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	With 
' Line #425:
' 	ArgsMemCallWith Copy 0x0000 
' Line #426:
' 	Ld xlPasteValues 
' 	ArgsMemCallWith PasteSpecial 0x0001 
' Line #427:
' 	Ld xlCenter 
' 	MemStWith HorizontalAlignment 
' Line #428:
' 	EndWith 
' Line #429:
' 	LitDI2 0x0001 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	Ld xlLastCell 
' 	LitDI2 0x0001 
' 	LitDI2 0x0006 
' 	ArgsLd Cells 0x0002 
' 	ArgsMemLd SpecialCells 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireColumn 
' 	ArgsMemCall Delete 0x0000 
' Line #430:
' 	QuoteRem 0x0000 0x0008 " Borders"
' Line #431:
' 	StartWithExpr 
' 	LitStr 0x0002 "A6"
' 	Ld TotalUnits 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	MemLd Borders 
' 	With 
' Line #432:
' 	Ld xlContinuous 
' 	MemStWith LineStyle 
' Line #433:
' 	Ld xlThin 
' 	MemStWith Weight 
' Line #434:
' 	Ld xlAutomatic 
' 	MemStWith ColorIndex 
' Line #435:
' 	EndWith 
' Line #436:
' 	Ld xlMedium 
' 	Ld xlEdgeBottom 
' 	LitStr 0x0002 "A6"
' 	Ld TotalUnits 
' 	LitDI2 0x0006 
' 	Add 
' 	LitDI2 0x0005 
' 	ArgsLd Cells 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemLd Borders 0x0001 
' 	MemSt Weight 
' Line #437:
' 	StartWithExpr 
' 	LitStr 0x0002 "A6"
' 	LitStr 0x0002 "E6"
' 	ArgsLd Range 0x0002 
' 	With 
' Line #438:
' 	Ld xlMedium 
' 	Ld xlEdgeTop 
' 	ArgsMemLdWith Borders 0x0001 
' 	MemSt Weight 
' Line #439:
' 	Ld xlMedium 
' 	Ld xlEdgeBottom 
' 	ArgsMemLdWith Borders 0x0001 
' 	MemSt Weight 
' Line #440:
' 	LitVarSpecial (True)
' 	MemLdWith Font 
' 	MemSt Bold 
' Line #441:
' 	EndWith 
' Line #442:
' 	QuoteRem 0x0000 0x000E " Column widths"
' Line #443:
' 	LitStr 0x0002 "B6"
' 	Ld xlToRight 
' 	Ld xlDown 
' 	LitStr 0x0002 "B6"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd End 0x0001 
' 	ArgsMemLd End 0x0001 
' 	ArgsLd Range 0x0002 
' 	MemLd EntireColumn 
' 	ArgsMemCall AutoFit 0x0000 
' Line #444:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	LitDI2 0x0001 
' 	LitDI2 0x0005 
' 	For 
' Line #445:
' 	Ld Counter1 
' 	LitDI2 0x0001 
' 	Add 
' 	ArgsLd Columns 0x0001 
' 	MemLd ColumnWidth 
' 	LitDI2 0x0006 
' 	Add 
' 	Ld Counter1 
' 	ArgsLd Columns 0x0001 
' 	MemSt ColumnWidth 
' Line #446:
' 	StartForVariable 
' 	Ld Counter1 
' 	EndForVariable 
' 	NextVar 
' Line #447:
' 	QuoteRem 0x0000 0x0017 " Remove unwanted column"
' Line #448:
' 	LitStr 0x0002 "A6"
' 	LitDI2 0x0000 
' 	LitDI2 0x0001 
' 	UMi 
' 	Ld xlDown 
' 	LitStr 0x0002 "B6"
' 	ArgsLd Range 0x0001 
' 	ArgsMemLd End 0x0001 
' 	ArgsMemLd Offset 0x0002 
' 	ArgsLd Range 0x0002 
' 	ArgsMemCall Delete 0x0000 
' Line #449:
' Line #450:
' 	QuoteRem 0x0000 0x0007 " Finish"
' Line #451:
' 	StartWithExpr 
' 	Ld ActiveSheet 
' 	MemLd PageSetup 
' 	With 
' Line #452:
' 	LitStr 0x0005 "$2:$6"
' 	MemStWith PrintTitleRows 
' Line #453:
' 	LitStr 0x0000 ""
' 	MemStWith PrintTitleColumns 
' Line #454:
' 	LitStr 0x000D "Page &P of &N"
' 	MemStWith CenterFooter 
' Line #455:
' 	EndWith 
' Line #456:
' 	LitStr 0x0002 "D1"
' 	ArgsLd Range 0x0001 
' 	ArgsMemCall Select 0x0000 
' Line #457:
' 	StartWithExpr 
' 	Ld ActiveWindow 
' 	With 
' Line #458:
' 	LitDI2 0x0001 
' 	MemStWith ScrollRow 
' Line #459:
' 	LitDI2 0x0001 
' 	MemStWith ScrollColumn 
' Line #460:
' 	EndWith 
' Line #461:
' 	LitVarSpecial (True)
' 	Ld Application 
' 	MemSt ScreenUpdating 
' Line #462:
' 	LitStr 0x001A "Now save this spreadsheet!"
' 	LitDI2 0x0000 
' 	LitStr 0x0008 "Edgar II"
' 	ArgsLd MsgBox 0x0003 
' 	St Response 
' Line #463:
' Line #464:
' 	ElseBlock 
' Line #465:
' 	LitVarSpecial (True)
' 	Ld Application 
' 	MemSt ScreenUpdating 
' Line #466:
' 	EndIfBlock 
' Line #467:
' 	EndIfBlock 
' Line #468:
' 	EndSub 
' Line #469:
' 	FuncDefn (Sub LargeScroll())
' Line #470:
' 	LitVarSpecial (True)
' 	Ld Application 
' 	MemSt ScreenUpdating 
' Line #471:
' 	LitDI2 0x0001 
' 	ParamNamed Up 
' 	Ld ActiveWindow 
' 	ArgsMemCall Down 0x0001 
' Line #472:
' 	LitDI2 0x0001 
' 	ParamNamed id_03FC 
' 	Ld ActiveWindow 
' 	ArgsMemCall Down 0x0001 
' Line #473:
' 	LitVarSpecial (False)
' 	St SuddenStop 
' Line #474:
' 	EndSub 
' Line #475:
' _VBA_PROJECT_CUR/VBA/ThisWorkbook - 993 bytes
' _VBA_PROJECT_CUR/VBA/Sheet2 - 1164 bytes
' Line #0:
' _VBA_PROJECT_CUR/VBA/Sheet1 - 1150 bytes
' _VBA_PROJECT_CUR/VBA/Sheet3 - 1150 bytes

