VBA Ok Click() If Statement Procedure Too Long

**LukeAM** · 08-22-2014, 03:32 AM

Hi,

I'm trying to create a workbook with a userform including tick boxes. And depending on what tick boxes are 'clicked' a new worksheet opens with information on the options clicked.

However, there are to be at least 40 tick boxes and there is lots of information. I got so far before hitting the 'Procedure too large' error. I cannot figure out (even from looking at other forums on various websites including this one) how to overcome this problem. All the information for the IF statements for the tick boxes are based in the Private_Sub OK_Click(). All the relevant code is below. Before asking the text that I am wanting to input into the cells is not finished yet which is why there are only 2-3 words. I haven't used VBA for long and any answers would be very helpful and much appreciated. Thanks

Private Sub OK_Click()
 
Unload UserForm1
 
 Worksheets("Data").Cells(1, 1).Select
 'Worksheets("Data").Cells(2, 1). = ActiveCell
 Do While ActiveCell.Value <> Empty
 rowNr = rowNr + 1
 ActiveCell.Offset(1, 0).Select
 Loop
 'MsgBox rowNr
 rowNr = rowNr + 1
  
  
Worksheets("Data").Cells(2, 3) = CheckBox1.Value
Worksheets("Data").Cells(3, 3) = CheckBox2.Value
Worksheets("Data").Cells(4, 3) = CheckBox3.Value
Worksheets("Data").Cells(5, 3) = CheckBox4.Value
Worksheets("Data").Cells(6, 3) = CheckBox5.Value
Worksheets("Data").Cells(7, 3) = CheckBox6.Value
Worksheets("Data").Cells(8, 3) = CheckBox7.Value
Worksheets("Data").Cells(9, 3) = CheckBox8.Value
Worksheets("Data").Cells(10, 3) = CheckBox9.Value
Worksheets("Data").Cells(11, 3) = CheckBox10.Value
 
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True And CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
Sheets.Add.Name = "TC1-40"
Worksheets("TC1-40").Cells(1, 1) = "No"
Worksheets("TC1-40").Cells(1, 2) = "T&C"
Worksheets("TC1-40").Range("A1:B1").Font.Bold = True
Worksheets("TC1-40").Range("A1:B1").Interior.Color = RGB(59, 179, 73)
Worksheets("TC1-40").Range("A1:A100").VerticalAlignment = xlCenter
Worksheets("TC1-40").Range("A1:A100").HorizontalAlignment = xlCenter
Worksheets("TC1-40").Range("B2:B52").WrapText = True
Worksheets("TC1-40").Range("A2:A3").MergeCells = True
Worksheets("TC1-40").Range("B1:J1").MergeCells = True
Worksheets("TC1-40").Range("B2:J2").MergeCells = True
Worksheets("TC1-40").Range("B3:J3").MergeCells = True
Worksheets("TC1-40").Range("B4:J4").MergeCells = True
Worksheets("TC1-40").Range("B5:J5").MergeCells = True
Worksheets("TC1-40").Range("B6:J6").MergeCells = True
Worksheets("TC1-40").Range("B7:J7").MergeCells = True
Worksheets("TC1-40").Range("B8:J8").MergeCells = True
Worksheets("TC1-40").Range("B9:J9").MergeCells = True
Worksheets("TC1-40").Range("B10:J10").MergeCells = True
Worksheets("TC1-40").Range("B11:J11").MergeCells = True
Worksheets("TC1-40").Range("B12:J12").MergeCells = True
Worksheets("TC1-40").Range("B13:J13").MergeCells = True
Worksheets("TC1-40").Range("B14:J14").MergeCells = True
Worksheets("TC1-40").Range("B15:J15").MergeCells = True
Worksheets("TC1-40").Range("B16:J16").MergeCells = True
Worksheets("TC1-40").Range("B17:J17").MergeCells = True
Worksheets("TC1-40").Range("B18:J18").MergeCells = True
Worksheets("TC1-40").Range("B19:J19").MergeCells = True
Worksheets("TC1-40").Range("B20:J20").MergeCells = True
Worksheets("TC1-40").Range("B21:J21").MergeCells = True
Worksheets("TC1-40").Range("B22:J22").MergeCells = True
Worksheets("TC1-40").Range("B23:J23").MergeCells = True
Worksheets("TC1-40").Range("B24:J24").MergeCells = True
Worksheets("TC1-40").Range("B25:J25").MergeCells = True
Worksheets("TC1-40").Range("B26:J26").MergeCells = True
Worksheets("TC1-40").Range("B27:J27").MergeCells = True
Worksheets("TC1-40").Range("B28:J28").MergeCells = True
Worksheets("TC1-40").Range("B29:J29").MergeCells = True
Worksheets("TC1-40").Range("B30:J30").MergeCells = True
Worksheets("TC1-40").Range("B31:J31").MergeCells = True
Worksheets("TC1-40").Range("B32:J32").MergeCells = True
Worksheets("TC1-40").Range("B33:J33").MergeCells = True
Worksheets("TC1-40").Range("B34:J34").MergeCells = True
Worksheets("TC1-40").Range("B35:J35").MergeCells = True
Worksheets("TC1-40").Range("B36:J36").MergeCells = True
Worksheets("TC1-40").Range("B37:J37").MergeCells = True
Worksheets("TC1-40").Range("B38:J38").MergeCells = True
Worksheets("TC1-40").Range("B39:J39").MergeCells = True
Worksheets("TC1-40").Range("B40:J40").MergeCells = True
Worksheets("TC1-40").Range("B41:J41").MergeCells = True
Worksheets("TC1-40").Range("B42:J42").MergeCells = True
Worksheets("TC1-40").Range("B43:J43").MergeCells = True
Worksheets("TC1-40").Range("B44:J44").MergeCells = True
Worksheets("TC1-40").Range("B45:J45").MergeCells = True
Worksheets("TC1-40").Range("B46:J46").MergeCells = True
Worksheets("TC1-40").Range("B47:J47").MergeCells = True
Worksheets("TC1-40").Range("B48:J48").MergeCells = True
Worksheets("TC1-40").Range("B49:J49").MergeCells = True
Worksheets("TC1-40").Range("B50:J50").MergeCells = True
Worksheets("TC1-40").Range("B51:J51").MergeCells = True
Worksheets("TC1-40").Range("B52:J52").MergeCells = True
Worksheets("TC1-40").Cells(2, 1) = "1"
Worksheets("TC1-40").Cells(2, 2) = "For the purposes of this subcontract..."
Worksheets("TC1-40").Range("B2:J2").RowHeight = 138.25
Worksheets("TC1-40").Range("B3") = "In accordance with..."
Worksheets("TC1-40").Range("B3:J3").RowHeight = 108.75
Worksheets("TC1-40").Cells(4, 1) = "2"
Worksheets("TC1-40").Range("B4") = "The subcontract..."
Worksheets("TC1-40").Range("B4:J4").RowHeight = 93
Worksheets("TC1-40").Cells(5, 1) = "3"
Worksheets("TC1-40").Range("B5") = "The subcontractor shall..."
Worksheets("TC1-40").Range("B5:J5").RowHeight = 76.5
Worksheets("TC1-40").Cells(6, 1) = "4"
Worksheets("TC1-40").Range("B6") = "The subcontractor shall..."
Worksheets("TC1-40").Range("B6:J6").RowHeight = 60.75
Worksheets("TC1-40").Cells(7, 1) = "5"
Worksheets("TC1-40").Range("B7") = "The subcontractor..."
Worksheets("TC1-40").Range("B7:J7").RowHeight = 60.75
Worksheets("TC1-40").Cells(8, 1) = "6"
Worksheets("TC1-40").Range("B8") = "The subcontract..."
Worksheets("TC1-40").Range("B8:J8").RowHeight = 94.5
Worksheets("TC1-40").Cells(9, 1) = "7"
Worksheets("TC1-40").Range("B9") = "You shall..."
Worksheets("TC1-40").Range("B9:J9").RowHeight = 30
Worksheets("TC1-40").Cells(10, 1) = "8"
Worksheets("TC1-40").Range("B10") = "It is our..."
Worksheets("TC1-40").Range("B10:J10").RowHeight = 60.75
Worksheets("TC1-40").Cells(11, 1) = "9"
Worksheets("TC1-40").Range("B11") = "Working hours shall..."
Worksheets("TC1-40").Range("B11:J11").RowHeight = 60.75
Worksheets("TC1-40").Cells(12, 1) = "10"
Worksheets("TC1-40").Range("B12") = "You are..."
Worksheets("TC1-40").Range("B12:J12").RowHeight = 29.25
Worksheets("TC1-40").Cells(13, 1) = "11"
Worksheets("TC1-40").Range("B13") = "During the execution..."
Worksheets("TC1-40").Range("B13:J13").RowHeight = 45
Worksheets("TC1-40").Cells(14, 1) = "12"
Worksheets("TC1-40").Range("B14") = "The subcontract rates..."
Worksheets("TC1-40").Range("B14:J14").RowHeight = 59.25
Worksheets("TC1-40").Cells(15, 1) = "13"
Worksheets("TC1-40").Range("B15") = "The subcotnractor shall..."
Worksheets("TC1-40").Range("B15:J15").RowHeight = 74.25
Worksheets("TC1-40").Cells(16, 1) = "14"
Worksheets("TC1-40").Range("B16") = "The subcontract rates..."
Worksheets("TC1-40").Range("B16:J16").RowHeight = 29.25
Worksheets("TC1-40").Cells(17, 1) = "15"
Worksheets("TC1-40").Range("B17") = "Except where..."
Worksheets("TC1-40").Range("B17:J17").RowHeight = 132.75
Worksheets("TC1-40").Cells(18, 1) = "16"
Worksheets("TC1-40").Range("B18") = "The subcontractor..."
Worksheets("TC1-40").Range("B18:J18").RowHeight = 60
Worksheets("TC1-40").Cells(19, 1) = "17"
Worksheets("TC1-40").Range("B19") = "The subcontractor..."
Worksheets("TC1-40").Range("B19:J19").RowHeight = 30
Worksheets("TC1-40").Cells(20, 1) = "18"
Worksheets("TC1-40").Range("B20") = "All documents..."
Worksheets("TC1-40").Range("B20:J20").RowHeight = 44.25
Worksheets("TC1-40").Cells(21, 1) = "19"
Worksheets("TC1-40").Range("B21") = "The subcontractor..."
Worksheets("TC1-40").Range("B21:J21").RowHeight = 29.25
Worksheets("TC1-40").Cells(22, 1) = "20"
Worksheets("TC1-40").Range("A22:A32").MergeCells = True
Worksheets("TC1-40").Range("B22") = "In line 1 of..."
Worksheets("TC1-40").Range("B22:J22").RowHeight = 77.25
Worksheets("TC1-40").Range("B23") = "Insert New Clause..."
Worksheets("TC1-40").Range("B23:J23").RowHeight = 96
Worksheets("TC1-40").Range("B24") = "At the beginning..."
Worksheets("TC1-40").Range("B24:J24").RowHeight = 21
Worksheets("TC1-40").Range("B25") = "At the end..."
Worksheets("TC1-40").Range("B25:J25").RowHeight = 36.75
Worksheets("TC1-40").Range("B26") = "Insert new..."
Worksheets("TC1-40").Range("B26:J26").RowHeight = 66.75
Worksheets("TC1-40").Range("B27") = "50.6.1 the..."
Worksheets("TC1-40").Range("B27:J27").RowHeight = 32.25
Worksheets("TC1-40").Range("B28") = "50.6.2 the..."
Worksheets("TC1-40").Range("B28:J28").RowHeight = 50.25
Worksheets("TC1-40").Range("B29") = "50.6.3 no..."
Worksheets("TC1-40").Range("B29:J29").RowHeight = 84
Worksheets("TC1-40").Range("B30") = "Insert New Clause..."
Worksheets("TC1-40").Range("B30:J30").RowHeight = 175.5
Worksheets("TC1-40").Range("B31") = "In line 3..."
Worksheets("TC1-40").Range("B31:J31").RowHeight = 69.75
Worksheets("TC1-40").Range("B32") = "In line 1..."
Worksheets("TC1-40").Range("B32:J32").RowHeight = 36.75
Worksheets("TC1-40").Cells(33, 1) = "21"
Worksheets("TC1-40").Range("B33") = "It is a..."
Worksheets("TC1-40").Range("B33:J33").RowHeight = 48
Worksheets("TC1-40").Cells(34, 1) = "22"
Worksheets("TC1-40").Range("B34") = "Any charges due..."
Worksheets("TC1-40").Range("B34:J34").RowHeight = 67.5
Worksheets("TC1-40").Cells(35, 1) = "23"
Worksheets("TC1-40").Range("B35") = "The Subcontractor..."
Worksheets("TC1-40").Range("B35:J35").RowHeight = 54
Worksheets("TC1-40").Cells(36, 1) = "24"
Worksheets("TC1-40").Range("B36") = "The Contracto..."
Worksheets("TC1-40").Range("B36:J36").RowHeight = 43.5
Worksheets("TC1-40").Cells(37, 1) = "25"
Worksheets("TC1-40").Range("B37") = "The subcontract..."
Worksheets("TC1-40").Range("B37:J37").RowHeight = 56.25
Worksheets("TC1-40").Cells(38, 1) = "26"
Worksheets("TC1-40").Range("B38") = "The Subcontract..."
Worksheets("TC1-40").Range("B38:J38").RowHeight = 69.75
Worksheets("TC1-40").Cells(39, 1) = "27"
Worksheets("TC1-40").Range("B39") = "The Subcontractor..."
Worksheets("TC1-40").Range("B39:J39").RowHeight = 37.5
Worksheets("TC1-40").Cells(40, 1) = "28"
Worksheets("TC1-40").Range("B40") = "The Subcontractor..."
Worksheets("TC1-40").Range("B40:J40").RowHeight = 33.75
Worksheets("TC1-40").Cells(41, 1) = "29"
Worksheets("TC1-40").Range("B41") = "You shall..."
Worksheets("TC1-40").Range("B41:J41").RowHeight = 35.25
Worksheets("TC1-40").Cells(42, 1) = "30"
Worksheets("TC1-40").Range("B42") = "We will provide..."
Worksheets("TC1-40").Range("B42:J42").RowHeight = 52.5
Worksheets("TC1-40").Cells(43, 1) = "31"
Worksheets("TC1-40").Range("B43") = "If the..."
Worksheets("TC1-40").Range("B43:J43").RowHeight = 57.75
Worksheets("TC1-40").Cells(44, 1) = "32"
Worksheets("TC1-40").Range("B44") = "All of your..."
Worksheets("TC1-40").Range("B44:J44").RowHeight = 51.75
Worksheets("TC1-40").Cells(45, 1) = "33"
Worksheets("TC1-40").Range("B45") = "You will be..."
Worksheets("TC1-40").Range("B45:J45").RowHeight = 55.5
Worksheets("TC1-40").Cells(46, 1) = "34"
Worksheets("TC1-40").Range("B46") = "In the event..."
Worksheets("TC1-40").Range("B46:J46").RowHeight = 113.25
Worksheets("TC1-40").Cells(47, 1) = "35"
Worksheets("TC1-40").Range("B47") = "Daily measurement..."
Worksheets("TC1-40").Range("B47:J47").RowHeight = 33
Worksheets("TC1-40").Cells(48, 1) = "36"
Worksheets("TC1-40").Range("B48") = "Your rates..."
Worksheets("TC1-40").Range("B48:J48").RowHeight = 40.5
Worksheets("TC1-40").Cells(49, 1) = "37"
Worksheets("TC1-40").Range("B49") = "We will not..."
Worksheets("TC1-40").Range("B49:J49").RowHeight = 84
Worksheets("TC1-40").Cells(50, 1) = "38"
Worksheets("TC1-40").Range("B50") = "Notwithstanding anything..."
Worksheets("TC1-40").Range("B50:J50").RowHeight = 100.5
Worksheets("TC1-40").Cells(51, 1) = "39"
Worksheets("TC1-40").Range("B51") = "Your rates..."
Worksheets("TC1-40").Range("B51:J51").RowHeight = 36
Worksheets("TC1-40").Cells(52, 1) = "40"
Worksheets("TC1-40").Range("B52") = "You shall..."
Worksheets("TC1-40").Range("B52:J52").RowHeight = 82.5
 
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True And CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox13 = True And CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And CheckBox38 = True And CheckBox39 = True Then
Sheets.Add.Name = "TC1-39"
Worksheets("TC1-39").Cells(1, 1) = "No"
Worksheets("TC1-39").Cells(1, 2) = "T&C"
Worksheets("TC1-39").Range("A1:B1").Font.Bold = True
Worksheets("TC1-39").Range("A1:B1").Interior.Color = RGB(59, 179, 73)
Worksheets("TC1-39").Range("A1:A100").VerticalAlignment = xlCenter
Worksheets("TC1-39").Range("A1:A100").HorizontalAlignment = xlCenter
Worksheets("TC1-39").Range("B2:B51").WrapText = True
Worksheets("TC1-39").Range("A2:A3").MergeCells = True
Worksheets("TC1-39").Range("B1:J1").MergeCells = True
Worksheets("TC1-39").Range("B2:J2").MergeCells = True
Worksheets("TC1-39").Range("B3:J3").MergeCells = True
Worksheets("TC1-39").Range("B4:J4").MergeCells = True
Worksheets("TC1-39").Range("B5:J5").MergeCells = True
Worksheets("TC1-39").Range("B6:J6").MergeCells = True
Worksheets("TC1-39").Range("B7:J7").MergeCells = True
Worksheets("TC1-39").Range("B8:J8").MergeCells = True
Worksheets("TC1-39").Range("B9:J9").MergeCells = True
Worksheets("TC1-39").Range("B10:J10").MergeCells = True
Worksheets("TC1-39").Range("B11:J11").MergeCells = True
Worksheets("TC1-39").Range("B12:J12").MergeCells = True
Worksheets("TC1-39").Range("B13:J13").MergeCells = True
Worksheets("TC1-39").Range("B14:J14").MergeCells = True
Worksheets("TC1-39").Range("B15:J15").MergeCells = True
Worksheets("TC1-39").Range("B16:J16").MergeCells = True
Worksheets("TC1-39").Range("B17:J17").MergeCells = True
Worksheets("TC1-39").Range("B18:J18").MergeCells = True
Worksheets("TC1-39").Range("B19:J19").MergeCells = True
Worksheets("TC1-39").Range("B20:J20").MergeCells = True
Worksheets("TC1-39").Range("B21:J21").MergeCells = True
Worksheets("TC1-39").Range("B22:J22").MergeCells = True
Worksheets("TC1-39").Range("B23:J23").MergeCells = True
Worksheets("TC1-39").Range("B24:J24").MergeCells = True
Worksheets("TC1-39").Range("B25:J25").MergeCells = True
Worksheets("TC1-39").Range("B26:J26").MergeCells = True
Worksheets("TC1-39").Range("B27:J27").MergeCells = True
Worksheets("TC1-39").Range("B28:J28").MergeCells = True
Worksheets("TC1-39").Range("B29:J29").MergeCells = True
Worksheets("TC1-39").Range("B30:J30").MergeCells = True
Worksheets("TC1-39").Range("B31:J31").MergeCells = True
Worksheets("TC1-39").Range("B32:J32").MergeCells = True
Worksheets("TC1-39").Range("B33:J33").MergeCells = True
Worksheets("TC1-39").Range("B34:J34").MergeCells = True
Worksheets("TC1-39").Range("B35:J35").MergeCells = True
Worksheets("TC1-39").Range("B36:J36").MergeCells = True
Worksheets("TC1-39").Range("B37:J37").MergeCells = True
Worksheets("TC1-39").Range("B38:J38").MergeCells = True
Worksheets("TC1-39").Range("B39:J39").MergeCells = True
Worksheets("TC1-39").Range("B40:J40").MergeCells = True
Worksheets("TC1-39").Range("B41:J41").MergeCells = True
Worksheets("TC1-39").Range("B42:J42").MergeCells = True
Worksheets("TC1-39").Range("B43:J43").MergeCells = True
Worksheets("TC1-39").Range("B44:J44").MergeCells = True
Worksheets("TC1-39").Range("B45:J45").MergeCells = True
Worksheets("TC1-39").Range("B46:J46").MergeCells = True
Worksheets("TC1-39").Range("B47:J47").MergeCells = True
Worksheets("TC1-39").Range("B48:J48").MergeCells = True
Worksheets("TC1-39").Range("B49:J49").MergeCells = True
Worksheets("TC1-39").Range("B50:J50").MergeCells = True
Worksheets("TC1-39").Range("B51:J51").MergeCells = True
Worksheets("TC1-39").Cells(2, 1) = "1"
Worksheets("TC1-39").Cells(2, 2) = "For the purposes..."
Worksheets("TC1-39").Range("B2:J2").RowHeight = 138.25
Worksheets("TC1-39").Range("B3") = "In accordance..."
Worksheets("TC1-39").Range("B3:J3").RowHeight = 108.75
Worksheets("TC1-39").Cells(4, 1) = "2"
Worksheets("TC1-39").Range("B4") = "The subcontract..."
Worksheets("TC1-39").Range("B4:J4").RowHeight = 93
Worksheets("TC1-39").Cells(5, 1) = "3"
Worksheets("TC1-39").Range("B5") = "The subcontractor..."
Worksheets("TC1-39").Range("B5:J5").RowHeight = 76.5
Worksheets("TC1-39").Cells(6, 1) = "4"
Worksheets("TC1-39").Range("B6") = "The subcontractor..."
Worksheets("TC1-39").Range("B6:J6").RowHeight = 60.75
Worksheets("TC1-39").Cells(7, 1) = "5"
Worksheets("TC1-39").Range("B7") = "The subcontractor..."
Worksheets("TC1-39").Range("B7:J7").RowHeight = 60.75
Worksheets("TC1-39").Cells(8, 1) = "6"
Worksheets("TC1-39").Range("B8") = "The subcontract..."
Worksheets("TC1-39").Range("B8:J8").RowHeight = 94.5
Worksheets("TC1-39").Cells(9, 1) = "7"
Worksheets("TC1-39").Range("B9") = "You shall..."
Worksheets("TC1-39").Range("B9:J9").RowHeight = 30
Worksheets("TC1-39").Cells(10, 1) = "8"
Worksheets("TC1-39").Range("B10") = "It is our..."
Worksheets("TC1-39").Range("B10:J10").RowHeight = 60.75
Worksheets("TC1-39").Cells(11, 1) = "9"
Worksheets("TC1-39").Range("B11") = "Working hours..."
Worksheets("TC1-39").Range("B11:J11").RowHeight = 60.75
Worksheets("TC1-39").Cells(12, 1) = "10"
Worksheets("TC1-39").Range("B12") = "You are..."
Worksheets("TC1-39").Range("B12:J12").RowHeight = 29.25
Worksheets("TC1-39").Cells(13, 1) = "11"
Worksheets("TC1-39").Range("B13") = "During the..."
Worksheets("TC1-39").Range("B13:J13").RowHeight = 45
Worksheets("TC1-39").Cells(14, 1) = "12"
Worksheets("TC1-39").Range("B14") = "The subcontract..."
Worksheets("TC1-39").Range("B14:J14").RowHeight = 59.25
Worksheets("TC1-39").Cells(15, 1) = "13"
Worksheets("TC1-39").Range("B15") = "The subcotnractor..."
Worksheets("TC1-39").Range("B15:J15").RowHeight = 74.25
Worksheets("TC1-39").Cells(16, 1) = "14"
Worksheets("TC1-39").Range("B16") = "The subcontract..."
Worksheets("TC1-39").Range("B16:J16").RowHeight = 29.25
Worksheets("TC1-39").Cells(17, 1) = "15"
Worksheets("TC1-39").Range("B17") = "Except where..."
Worksheets("TC1-39").Range("B17:J17").RowHeight = 132.75
Worksheets("TC1-39").Cells(18, 1) = "16"
Worksheets("TC1-39").Range("B18") = "The subcontractor..."
Worksheets("TC1-39").Range("B18:J18").RowHeight = 60
Worksheets("TC1-39").Cells(19, 1) = "17"
Worksheets("TC1-39").Range("B19") = "The subcontractor..."
Worksheets("TC1-39").Range("B19:J19").RowHeight = 30
Worksheets("TC1-39").Cells(20, 1) = "18"
Worksheets("TC1-39").Range("B20") = "All documents..."
Worksheets("TC1-39").Range("B20:J20").RowHeight = 44.25
Worksheets("TC1-39").Cells(21, 1) = "19"
Worksheets("TC1-39").Range("B21") = "The subcontractor..."
Worksheets("TC1-39").Range("B21:J21").RowHeight = 29.25
Worksheets("TC1-39").Cells(22, 1) = "20"
Worksheets("TC1-39").Range("A22:A32").MergeCells = True
Worksheets("TC1-39").Range("B22") = "In line 1..."
Worksheets("TC1-39").Range("B22:J22").RowHeight = 77.25
Worksheets("TC1-39").Range("B23") = "Insert New Clause..."
Worksheets("TC1-39").Range("B23:J23").RowHeight = 96
Worksheets("TC1-39").Range("B24") = "At the..."
Worksheets("TC1-39").Range("B24:J24").RowHeight = 21
Worksheets("TC1-39").Range("B25") = "At the end..."
Worksheets("TC1-39").Range("B25:J25").RowHeight = 36.75
Worksheets("TC1-39").Range("B26") = "Insert new Clause..."
Worksheets("TC1-39").Range("B26:J26").RowHeight = 66.75
Worksheets("TC1-39").Range("B27") = "50.6.1 the..."
Worksheets("TC1-39").Range("B27:J27").RowHeight = 32.25
Worksheets("TC1-39").Range("B28") = "50.6.2 the..."
Worksheets("TC1-39").Range("B28:J28").RowHeight = 50.25
Worksheets("TC1-39").Range("B29") = "50.6.3..."
Worksheets("TC1-39").Range("B29:J29").RowHeight = 84
Worksheets("TC1-39").Range("B30") = "Insert New Clause..."
Worksheets("TC1-39").Range("B30:J30").RowHeight = 175.5
Worksheets("TC1-39").Range("B31") = "In line 3..."
Worksheets("TC1-39").Range("B31:J31").RowHeight = 69.75
Worksheets("TC1-39").Range("B32") = "In line 1..."
Worksheets("TC1-39").Range("B32:J32").RowHeight = 36.75
Worksheets("TC1-39").Cells(33, 1) = "21"
Worksheets("TC1-39").Range("B33") = "It is..."
Worksheets("TC1-39").Range("B33:J33").RowHeight = 48
Worksheets("TC1-39").Cells(34, 1) = "22"
Worksheets("TC1-39").Range("B34") = "Any charges due..."
Worksheets("TC1-39").Range("B34:J34").RowHeight = 67.5
Worksheets("TC1-39").Cells(35, 1) = "23"
Worksheets("TC1-39").Range("B35") = "The Subcontractor..."
Worksheets("TC1-39").Range("B35:J35").RowHeight = 54
Worksheets("TC1-39").Cells(36, 1) = "24"
Worksheets("TC1-39").Range("B36") = "The Contractor..."
Worksheets("TC1-39").Range("B36:J36").RowHeight = 43.5
Worksheets("TC1-39").Cells(37, 1) = "25"
Worksheets("TC1-39").Range("B37") = "The subcontract rates..."
Worksheets("TC1-39").Range("B37:J37").RowHeight = 56.25
Worksheets("TC1-39").Cells(38, 1) = "26"
Worksheets("TC1-39").Range("B38") = "The Subcontract Works..."
Worksheets("TC1-39").Range("B38:J38").RowHeight = 69.75
Worksheets("TC1-39").Cells(39, 1) = "27"
Worksheets("TC1-39").Range("B39") = "The Subcontractor..."
Worksheets("TC1-39").Range("B39:J39").RowHeight = 37.5
Worksheets("TC1-39").Cells(40, 1) = "28"
Worksheets("TC1-39").Range("B40") = "The Subcontractor..."
Worksheets("TC1-39").Range("B40:J40").RowHeight = 33.75
Worksheets("TC1-39").Cells(41, 1) = "29"
Worksheets("TC1-39").Range("B41") = "You shall..."
Worksheets("TC1-39").Range("B41:J41").RowHeight = 35.25
Worksheets("TC1-39").Cells(42, 1) = "30"
Worksheets("TC1-39").Range("B42") = "We will provide..."
Worksheets("TC1-39").Range("B42:J42").RowHeight = 52.5
Worksheets("TC1-39").Cells(43, 1) = "31"
Worksheets("TC1-39").Range("B43") = "If the site..."
Worksheets("TC1-39").Range("B43:J43").RowHeight = 57.75
Worksheets("TC1-39").Cells(44, 1) = "32"
Worksheets("TC1-39").Range("B44") = "All of your..."
Worksheets("TC1-39").Range("B44:J44").RowHeight = 51.75
Worksheets("TC1-39").Cells(45, 1) = "33"
Worksheets("TC1-39").Range("B45") = "You will be..."
Worksheets("TC1-39").Range("B45:J45").RowHeight = 55.5
Worksheets("TC1-39").Cells(46, 1) = "34"
Worksheets("TC1-39").Range("B46") = "In the event..."
Worksheets("TC1-39").Range("B46:J46").RowHeight = 113.25
Worksheets("TC1-39").Cells(47, 1) = "35"
Worksheets("TC1-39").Range("B47") = "Daily measurement..."
Worksheets("TC1-39").Range("B47:J47").RowHeight = 33
Worksheets("TC1-39").Cells(48, 1) = "36"
Worksheets("TC1-39").Range("B48") = "Your rates..."
Worksheets("TC1-39").Range("B48:J48").RowHeight = 40.5
Worksheets("TC1-39").Cells(49, 1) = "37"
Worksheets("TC1-39").Range("B49") = "We will not..."
Worksheets("TC1-39").Range("B49:J49").RowHeight = 84
Worksheets("TC1-39").Cells(50, 1) = "38"
Worksheets("TC1-39").Range("B50") = "Notwithstanding anything..."
Worksheets("TC1-39").Range("B50:J50").RowHeight = 100.5
Worksheets("TC1-39").Cells(51, 1) = "39"
Worksheets("TC1-39").Range("B51") = "Your rates and prices include for undertaking the subcontract works in the number visits required to suit our main contract program."
Worksheets("TC1-39").Range("B51:J51").RowHeight = 36
 
ElseIf CheckBox1 = True And CheckBox3 = True And CheckBox4 = True And CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
Sheets.Add.Name = "TC1,3-40"
Worksheets("TC1,3-40").Cells(1, 1) = "No"
Worksheets("TC1,3-40").Cells(1, 2) = "T&C"
Worksheets("TC1,3-40").Range("A1:B1").Font.Bold = True
Worksheets("TC1,3-40").Range("A1:B1").Interior.Color = RGB(59, 179, 73)
Worksheets("TC1,3-40").Range("A1:A100").VerticalAlignment = xlCenter
Worksheets("TC1,3-40").Range("A1:A100").HorizontalAlignment = xlCenter
Worksheets("TC1,3-40").Range("B2:B51").WrapText = True
Worksheets("TC1,3-40").Range("A2:A3").MergeCells = True
Worksheets("TC1,3-40").Range("B1:J1").MergeCells = True
Worksheets("TC1,3-40").Range("B2:J2").MergeCells = True
Worksheets("TC1,3-40").Range("B3:J3").MergeCells = True
Worksheets("TC1,3-40").Range("B4:J4").MergeCells = True
Worksheets("TC1,3-40").Range("B5:J5").MergeCells = True
Worksheets("TC1,3-40").Range("B6:J6").MergeCells = True
Worksheets("TC1,3-40").Range("B7:J7").MergeCells = True
Worksheets("TC1,3-40").Range("B8:J8").MergeCells = True
Worksheets("TC1,3-40").Range("B9:J9").MergeCells = True
Worksheets("TC1,3-40").Range("B10:J10").MergeCells = True
Worksheets("TC1,3-40").Range("B11:J11").MergeCells = True
Worksheets("TC1,3-40").Range("B12:J12").MergeCells = True
Worksheets("TC1,3-40").Range("B13:J13").MergeCells = True
Worksheets("TC1,3-40").Range("B14:J14").MergeCells = True
Worksheets("TC1,3-40").Range("B15:J15").MergeCells = True
Worksheets("TC1,3-40").Range("B16:J16").MergeCells = True
Worksheets("TC1,3-40").Range("B17:J17").MergeCells = True
Worksheets("TC1,3-40").Range("B18:J18").MergeCells = True
Worksheets("TC1,3-40").Range("B19:J19").MergeCells = True
Worksheets("TC1,3-40").Range("B20:J20").MergeCells = True
Worksheets("TC1,3-40").Range("B21:J21").MergeCells = True
Worksheets("TC1,3-40").Range("B22:J22").MergeCells = True
Worksheets("TC1,3-40").Range("B23:J23").MergeCells = True
Worksheets("TC1,3-40").Range("B24:J24").MergeCells = True
Worksheets("TC1,3-40").Range("B25:J25").MergeCells = True
Worksheets("TC1,3-40").Range("B26:J26").MergeCells = True
Worksheets("TC1,3-40").Range("B27:J27").MergeCells = True
Worksheets("TC1,3-40").Range("B28:J28").MergeCells = True
Worksheets("TC1,3-40").Range("B29:J29").MergeCells = True
Worksheets("TC1,3-40").Range("B30:J30").MergeCells = True
Worksheets("TC1,3-40").Range("B31:J31").MergeCells = True
Worksheets("TC1,3-40").Range("B32:J32").MergeCells = True
Worksheets("TC1,3-40").Range("B33:J33").MergeCells = True
Worksheets("TC1,3-40").Range("B34:J34").MergeCells = True
Worksheets("TC1,3-40").Range("B35:J35").MergeCells = True
Worksheets("TC1,3-40").Range("B36:J36").MergeCells = True
Worksheets("TC1,3-40").Range("B37:J37").MergeCells = True
Worksheets("TC1,3-40").Range("B38:J38").MergeCells = True
Worksheets("TC1,3-40").Range("B39:J39").MergeCells = True
Worksheets("TC1,3-40").Range("B40:J40").MergeCells = True
Worksheets("TC1,3-40").Range("B41:J41").MergeCells = True
Worksheets("TC1,3-40").Range("B42:J42").MergeCells = True
Worksheets("TC1,3-40").Range("B43:J43").MergeCells = True
Worksheets("TC1,3-40").Range("B44:J44").MergeCells = True
Worksheets("TC1,3-40").Range("B45:J45").MergeCells = True
Worksheets("TC1,3-40").Range("B46:J46").MergeCells = True
Worksheets("TC1,3-40").Range("B47:J47").MergeCells = True
Worksheets("TC1,3-40").Range("B48:J48").MergeCells = True
Worksheets("TC1,3-40").Range("B49:J49").MergeCells = True
Worksheets("TC1,3-40").Range("B50:J50").MergeCells = True
Worksheets("TC1,3-40").Range("B51:J51").MergeCells = True
Worksheets("TC1,3-40").Cells(2, 1) = "1"
Worksheets("TC1,3-40").Cells(2, 2) = "For the purposes..."
Worksheets("TC1,3-40").Range("B2:J2").RowHeight = 138.25
Worksheets("TC1,3-40").Range("B3") = "In accordance..."
Worksheets("TC1,3-40").Range("B3:J3").RowHeight = 108.75
Worksheets("TC1,3-40").Cells(4, 1) = "3"
Worksheets("TC1,3-40").Range("B4") = "The subcontractor..."
Worksheets("TC1,3-40").Range("B4:J4").RowHeight = 76.5
Worksheets("TC1,3-40").Cells(5, 1) = "4"
Worksheets("TC1,3-40").Range("B5") = "The subcontractor..."
Worksheets("TC1,3-40").Range("B5:J5").RowHeight = 60.75
Worksheets("TC1,3-40").Cells(6, 1) = "5"
Worksheets("TC1,3-40").Range("B6") = "The subcontractor..."
Worksheets("TC1,3-40").Range("B6:J6").RowHeight = 60.75
Worksheets("TC1,3-40").Cells(7, 1) = "6"
Worksheets("TC1,3-40").Range("B7") = "The subcontract..."
Worksheets("TC1,3-40").Range("B7:J7").RowHeight = 94.5
Worksheets("TC1,3-40").Cells(8, 1) = "7"
Worksheets("TC1,3-40").Range("B8") = "You shall..."
Worksheets("TC1,3-40").Range("B8:J8").RowHeight = 30
Worksheets("TC1,3-40").Cells(9, 1) = "8"
Worksheets("TC1,3-40").Range("B9") = "It is our policy..."
Worksheets("TC1,3-40").Range("B9:J9").RowHeight = 60.75
Worksheets("TC1,3-40").Cells(10, 1) = "9"
Worksheets("TC1,3-40").Range("B10") = "Working hours..."
Worksheets("TC1,3-40").Range("B10:J10").RowHeight = 60.75
Worksheets("TC1,3-40").Cells(11, 1) = "10"
Worksheets("TC1,3-40").Range("B11") = "You are required..."
Worksheets("TC1,3-40").Range("B11:J11").RowHeight = 29.25
Worksheets("TC1,3-40").Cells(12, 1) = "11"
Worksheets("TC1,3-40").Range("B12") = "During the execution...."
Worksheets("TC1,3-40").Range("B12:J12").RowHeight = 45
Worksheets("TC1,3-40").Cells(13, 1) = "12"
Worksheets("TC1,3-40").Range("B13") = "The subcontract..."
Worksheets("TC1,3-40").Range("B13:J13").RowHeight = 59.25
Worksheets("TC1,3-40").Cells(14, 1) = "13"
Worksheets("TC1,3-40").Range("B14") = "The subcotnractor..."
Worksheets("TC1,3-40").Range("B14:J14").RowHeight = 74.25
Worksheets("TC1,3-40").Cells(15, 1) = "14"
Worksheets("TC1,3-40").Range("B15") = "The subcontract..."
Worksheets("TC1,3-40").Range("B15:J15").RowHeight = 29.25
Worksheets("TC1,3-40").Cells(16, 1) = "15"
Worksheets("TC1,3-40").Range("B16") = "Except where..."
Worksheets("TC1,3-40").Range("B16:J16").RowHeight = 132.75
Worksheets("TC1,3-40").Cells(17, 1) = "16"
Worksheets("TC1,3-40").Range("B17") = "The subcontractor..."
Worksheets("TC1,3-40").Range("B17:J17").RowHeight = 60
Worksheets("TC1,3-40").Cells(18, 1) = "17"
Worksheets("TC1,3-40").Range("B18") = "The subcontractor..."
Worksheets("TC1,3-40").Range("B18:J18").RowHeight = 30
Worksheets("TC1,3-40").Cells(19, 1) = "18"
Worksheets("TC1,3-40").Range("B19") = "All documents..."
Worksheets("TC1,3-40").Range("B19:J19").RowHeight = 44.25
Worksheets("TC1,3-40").Cells(20, 1) = "19"
Worksheets("TC1,3-40").Range("B20") = "The subcontractor..."
Worksheets("TC1,3-40").Range("B20:J20").RowHeight = 29.25
Worksheets("TC1,3-40").Cells(21, 1) = "20"
Worksheets("TC1,3-40").Range("A21:A31").MergeCells = True
Worksheets("TC1,3-40").Range("B21") = "In line 1..."
Worksheets("TC1,3-40").Range("B21:J21").RowHeight = 77.25
Worksheets("TC1,3-40").Range("B22") = "Insert New Clause..."
Worksheets("TC1,3-40").Range("B22:J22").RowHeight = 96
Worksheets("TC1,3-40").Range("B23") = "At the..."
Worksheets("TC1,3-40").Range("B23:J23").RowHeight = 21
Worksheets("TC1,3-40").Range("B24") = "At the end..."
Worksheets("TC1,3-40").Range("B24:J24").RowHeight = 36.75
Worksheets("TC1,3-40").Range("B25") = "Insert new Clause..."
Worksheets("TC1,3-40").Range("B25:J25").RowHeight = 66.75
Worksheets("TC1,3-40").Range("B26") = "50.6.1 the..."
Worksheets("TC1,3-40").Range("B26:J26").RowHeight = 32.25
Worksheets("TC1,3-40").Range("B27") = "50.6.2 the..."
Worksheets("TC1,3-40").Range("B27:J27").RowHeight = 50.25
Worksheets("TC1,3-40").Range("B28") = "50.6.3 no further..."
Worksheets("TC1,3-40").Range("B28:J28").RowHeight = 84
Worksheets("TC1,3-40").Range("B29") = "Insert New Clause..."
Worksheets("TC1,3-40").Range("B29:J29").RowHeight = 175.5
Worksheets("TC1,3-40").Range("B30") = "In line 3..."
Worksheets("TC1,3-40").Range("B30:J30").RowHeight = 69.75
Worksheets("TC1,3-40").Range("B31") = "In line 1..."
Worksheets("TC1,3-40").Range("B31:J31").RowHeight = 36.75
Worksheets("TC1,3-40").Cells(32, 1) = "21"
Worksheets("TC1,3-40").Range("B32") = "It is a..."
Worksheets("TC1,3-40").Range("B32:J32").RowHeight = 48
Worksheets("TC1,3-40").Cells(33, 1) = "22"
Worksheets("TC1,3-40").Range("B33") = "Any charges due..."
Worksheets("TC1,3-40").Range("B33:J33").RowHeight = 67.5
Worksheets("TC1,3-40").Cells(34, 1) = "23"
Worksheets("TC1,3-40").Range("B34") = "The Subcontractor..."
Worksheets("TC1,3-40").Range("B34:J34").RowHeight = 54
Worksheets("TC1,3-40").Cells(35, 1) = "24"
Worksheets("TC1,3-40").Range("B35") = "The Contractor shall..."
Worksheets("TC1,3-40").Range("B35:J35").RowHeight = 43.5
Worksheets("TC1,3-40").Cells(36, 1) = "25"
Worksheets("TC1,3-40").Range("B36") = "The subcontract..."
Worksheets("TC1,3-40").Range("B36:J36").RowHeight = 56.25
Worksheets("TC1,3-40").Cells(37, 1) = "26"
Worksheets("TC1,3-40").Range("B37") = "The Subcontract..."
Worksheets("TC1,3-40").Range("B37:J37").RowHeight = 69.75
Worksheets("TC1,3-40").Cells(38, 1) = "27"
Worksheets("TC1,3-40").Range("B38") = "The Subcontractor..."
Worksheets("TC1,3-40").Range("B38:J38").RowHeight = 37.5
Worksheets("TC1,3-40").Cells(39, 1) = "28"
Worksheets("TC1,3-40").Range("B39") = "The Subcontractor..."
Worksheets("TC1,3-40").Range("B39:J39").RowHeight = 33.75
Worksheets("TC1,3-40").Cells(40, 1) = "29"
Worksheets("TC1,3-40").Range("B40") = "You shall..."
Worksheets("TC1,3-40").Range("B40:J40").RowHeight = 35.25
Worksheets("TC1,3-40").Cells(41, 1) = "30"
Worksheets("TC1,3-40").Range("B41") = "We will..."
Worksheets("TC1,3-40").Range("B41:J41").RowHeight = 52.5
Worksheets("TC1,3-40").Cells(42, 1) = "31"
Worksheets("TC1,3-40").Range("B42") = "If the site..."
Worksheets("TC1,3-40").Range("B42:J42").RowHeight = 57.75
Worksheets("TC1,3-40").Cells(43, 1) = "32"
Worksheets("TC1,3-40").Range("B43") = "All of your..."
Worksheets("TC1,3-40").Range("B43:J43").RowHeight = 51.75
Worksheets("TC1,3-40").Cells(44, 1) = "33"
Worksheets("TC1,3-40").Range("B44") = "You will be..."
Worksheets("TC1,3-40").Range("B44:J44").RowHeight = 55.5
Worksheets("TC1,3-40").Cells(45, 1) = "34"
Worksheets("TC1,3-40").Range("B45") = "In the event..."
Worksheets("TC1,3-40").Range("B45:J45").RowHeight = 113.25
Worksheets("TC1,3-40").Cells(46, 1) = "35"
Worksheets("TC1,3-40").Range("B46") = "Daily measurement..."
Worksheets("TC1,3-40").Range("B46:J46").RowHeight = 33
Worksheets("TC1,3-40").Cells(47, 1) = "36"
Worksheets("TC1,3-40").Range("B47") = "Your rates..."
Worksheets("TC1,3-40").Range("B47:J47").RowHeight = 40.5
Worksheets("TC1,3-40").Cells(48, 1) = "37"
Worksheets("TC1,3-40").Range("B48") = "We will not..."
Worksheets("TC1,3-40").Range("B48:J48").RowHeight = 84
Worksheets("TC1,3-40").Cells(49, 1) = "38"
Worksheets("TC1,3-40").Range("B49") = "Notwithstanding anything..."
Worksheets("TC1,3-40").Range("B49:J49").RowHeight = 100.5
Worksheets("TC1,3-40").Cells(50, 1) = "39"
Worksheets("TC1,3-40").Range("B50") = "Your rates..."
Worksheets("TC1,3-40").Range("B50:J50").RowHeight = 36
Worksheets("TC1,3-40").Cells(51, 1) = "40"
Worksheets("TC1,3-40").Range("B51") = "You shall at..."
Worksheets("TC1,3-40").Range("B51:J51").RowHeight = 82.5
 
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox4 = True And CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
Sheets.Add.Name = "TC1-2,4-40"
Worksheets("TC1-2,4-40").Cells(1, 1) = "No"
Worksheets("TC1-2,4-40").Cells(1, 2) = "T&C"
Worksheets("TC1-2,4-40").Range("A1:B1").Font.Bold = True
Worksheets("TC1-2,4-40").Range("A1:B1").Interior.Color = RGB(59, 179, 73)
Worksheets("TC1-2,4-40").Range("A1:A100").VerticalAlignment = xlCenter
Worksheets("TC1-2,4-40").Range("A1:A100").HorizontalAlignment = xlCenter
Worksheets("TC1-2,4-40").Range("B2:B51").WrapText = True
Worksheets("TC1-2,4-40").Range("A2:A3").MergeCells = True
Worksheets("TC1-2,4-40").Range("B1:J1").MergeCells = True
Worksheets("TC1-2,4-40").Range("B2:J2").MergeCells = True
Worksheets("TC1-2,4-40").Range("B3:J3").MergeCells = True
Worksheets("TC1-2,4-40").Range("B4:J4").MergeCells = True
Worksheets("TC1-2,4-40").Range("B5:J5").MergeCells = True
Worksheets("TC1-2,4-40").Range("B6:J6").MergeCells = True
Worksheets("TC1-2,4-40").Range("B7:J7").MergeCells = True
Worksheets("TC1-2,4-40").Range("B8:J8").MergeCells = True
Worksheets("TC1-2,4-40").Range("B9:J9").MergeCells = True
Worksheets("TC1-2,4-40").Range("B10:J10").MergeCells = True
Worksheets("TC1-2,4-40").Range("B11:J11").MergeCells = True
Worksheets("TC1-2,4-40").Range("B12:J12").MergeCells = True
Worksheets("TC1-2,4-40").Range("B13:J13").MergeCells = True
Worksheets("TC1-2,4-40").Range("B14:J14").MergeCells = True
Worksheets("TC1-2,4-40").Range("B15:J15").MergeCells = True
Worksheets("TC1-2,4-40").Range("B16:J16").MergeCells = True
Worksheets("TC1-2,4-40").Range("B17:J17").MergeCells = True
Worksheets("TC1-2,4-40").Range("B18:J18").MergeCells = True
Worksheets("TC1-2,4-40").Range("B19:J19").MergeCells = True
Worksheets("TC1-2,4-40").Range("B20:J20").MergeCells = True
Worksheets("TC1-2,4-40").Range("B21:J21").MergeCells = True
Worksheets("TC1-2,4-40").Range("B22:J22").MergeCells = True
Worksheets("TC1-2,4-40").Range("B23:J23").MergeCells = True
Worksheets("TC1-2,4-40").Range("B24:J24").MergeCells = True
Worksheets("TC1-2,4-40").Range("B25:J25").MergeCells = True
Worksheets("TC1-2,4-40").Range("B26:J26").MergeCells = True
Worksheets("TC1-2,4-40").Range("B27:J27").MergeCells = True
Worksheets("TC1-2,4-40").Range("B28:J28").MergeCells = True
Worksheets("TC1-2,4-40").Range("B29:J29").MergeCells = True
Worksheets("TC1-2,4-40").Range("B30:J30").MergeCells = True
Worksheets("TC1-2,4-40").Range("B31:J31").MergeCells = True
Worksheets("TC1-2,4-40").Range("B32:J32").MergeCells = True
Worksheets("TC1-2,4-40").Range("B33:J33").MergeCells = True
Worksheets("TC1-2,4-40").Range("B34:J34").MergeCells = True
Worksheets("TC1-2,4-40").Range("B35:J35").MergeCells = True
Worksheets("TC1-2,4-40").Range("B36:J36").MergeCells = True
Worksheets("TC1-2,4-40").Range("B37:J37").MergeCells = True
Worksheets("TC1-2,4-40").Range("B38:J38").MergeCells = True
Worksheets("TC1-2,4-40").Range("B39:J39").MergeCells = True
Worksheets("TC1-2,4-40").Range("B40:J40").MergeCells = True
Worksheets("TC1-2,4-40").Range("B41:J41").MergeCells = True
Worksheets("TC1-2,4-40").Range("B42:J42").MergeCells = True
Worksheets("TC1-2,4-40").Range("B43:J43").MergeCells = True
Worksheets("TC1-2,4-40").Range("B44:J44").MergeCells = True
Worksheets("TC1-2,4-40").Range("B45:J45").MergeCells = True
Worksheets("TC1-2,4-40").Range("B46:J46").MergeCells = True
Worksheets("TC1-2,4-40").Range("B47:J47").MergeCells = True
Worksheets("TC1-2,4-40").Range("B48:J48").MergeCells = True
Worksheets("TC1-2,4-40").Range("B49:J49").MergeCells = True
Worksheets("TC1-2,4-40").Range("B50:J50").MergeCells = True
Worksheets("TC1-2,4-40").Range("B51:J51").MergeCells = True
Worksheets("TC1-2,4-40").Cells(2, 1) = "1"
Worksheets("TC1-2,4-40").Cells(2, 2) = "For the..."
Worksheets("TC1-2,4-40").Range("B2:J2").RowHeight = 138.25
Worksheets("TC1-2,4-40").Range("B3") = "In accordance..."
Worksheets("TC1-2,4-40").Range("B3:J3").RowHeight = 108.75
Worksheets("TC1-2,4-40").Cells(4, 1) = "2"
Worksheets("TC1-2,4-40").Range("B4") = "The subcontract..."
Worksheets("TC1-2,4-40").Range("B4:J4").RowHeight = 93
Worksheets("TC1-2,4-40").Cells(5, 1) = "4"
Worksheets("TC1-2,4-40").Range("B5") = "The subcontractor..."
Worksheets("TC1-2,4-40").Range("B5:J5").RowHeight = 60.75
Worksheets("TC1-2,4-40").Cells(6, 1) = "5"
Worksheets("TC1-2,4-40").Range("B6") = "The subcontractor..."
Worksheets("TC1-2,4-40").Range("B6:J6").RowHeight = 60.75
Worksheets("TC1-2,4-40").Cells(7, 1) = "6"
Worksheets("TC1-2,4-40").Range("B7") = "The subcontract..."
Worksheets("TC1-2,4-40").Range("B7:J7").RowHeight = 94.5
Worksheets("TC1-2,4-40").Cells(8, 1) = "7"
Worksheets("TC1-2,4-40").Range("B8") = "You shall..."
Worksheets("TC1-2,4-40").Range("B8:J8").RowHeight = 30
Worksheets("TC1-2,4-40").Cells(9, 1) = "8"
Worksheets("TC1-2,4-40").Range("B9") = "It is our..."
Worksheets("TC1-2,4-40").Range("B9:J9").RowHeight = 60.75
Worksheets("TC1-2,4-40").Cells(10, 1) = "9"
Worksheets("TC1-2,4-40").Range("B10") = "Working hours..."
Worksheets("TC1-2,4-40").Range("B10:J10").RowHeight = 60.75
Worksheets("TC1-2,4-40").Cells(11, 1) = "10"
Worksheets("TC1-2,4-40").Range("B11") = "You are..."
Worksheets("TC1-2,4-40").Range("B11:J11").RowHeight = 29.25
Worksheets("TC1-2,4-40").Cells(12, 1) = "11"
Worksheets("TC1-2,4-40").Range("B12") = "During the..."
Worksheets("TC1-2,4-40").Range("B12:J12").RowHeight = 45
Worksheets("TC1-2,4-40").Cells(13, 1) = "12"
Worksheets("TC1-2,4-40").Range("B13") = "The subcontract..."
Worksheets("TC1-2,4-40").Range("B13:J13").RowHeight = 59.25
Worksheets("TC1-2,4-40").Cells(14, 1) = "13"
Worksheets("TC1-2,4-40").Range("B14") = "The subcotnractor..."
Worksheets("TC1-2,4-40").Range("B14:J14").RowHeight = 74.25
Worksheets("TC1-2,4-40").Cells(15, 1) = "14"
Worksheets("TC1-2,4-40").Range("B15") = "The subcontract..."
Worksheets("TC1-2,4-40").Range("B15:J15").RowHeight = 29.25
Worksheets("TC1-2,4-40").Cells(16, 1) = "15"
Worksheets("TC1-2,4-40").Range("B16") = "Except where..."
Worksheets("TC1-2,4-40").Range("B16:J16").RowHeight = 132.75
Worksheets("TC1-2,4-40").Cells(17, 1) = "16"
Worksheets("TC1-2,4-40").Range("B17") = "The subcontractor..."
Worksheets("TC1-2,4-40").Range("B17:J17").RowHeight = 60
Worksheets("TC1-2,4-40").Cells(18, 1) = "17"
Worksheets("TC1-2,4-40").Range("B18") = "The subcontractor..."
Worksheets("TC1-2,4-40").Range("B18:J18").RowHeight = 30
Worksheets("TC1-2,4-40").Cells(19, 1) = "18"
Worksheets("TC1-2,4-40").Range("B19") = "All documents...."
Worksheets("TC1-2,4-40").Range("B19:J19").RowHeight = 44.25
Worksheets("TC1-2,4-40").Cells(20, 1) = "19"
Worksheets("TC1-2,4-40").Range("B20") = "The subcontractor..."
Worksheets("TC1-2,4-40").Range("B20:J20").RowHeight = 29.25
Worksheets("TC1-2,4-40").Cells(21, 1) = "20"
Worksheets("TC1-2,4-40").Range("A21:A31").MergeCells = True
Worksheets("TC1-2,4-40").Range("B21") = "In line 1..."
Worksheets("TC1-2,4-40").Range("B21:J21").RowHeight = 77.25
Worksheets("TC1-2,4-40").Range("B22") = "Insert New Clause...'"
Worksheets("TC1-2,4-40").Range("B22:J22").RowHeight = 96
Worksheets("TC1-2,4-40").Range("B23") = "At the..."
Worksheets("TC1-2,4-40").Range("B23:J23").RowHeight = 21
Worksheets("TC1-2,4-40").Range("B24") = "At the end..."
Worksheets("TC1-2,4-40").Range("B24:J24").RowHeight = 36.75
Worksheets("TC1-2,4-40").Range("B25") = "Insert new Clause..."
Worksheets("TC1-2,4-40").Range("B25:J25").RowHeight = 66.75
Worksheets("TC1-2,4-40").Range("B26") = "50.6.1..."
Worksheets("TC1-2,4-40").Range("B26:J26").RowHeight = 32.25
Worksheets("TC1-2,4-40").Range("B27") = "50.6.2 the..."
Worksheets("TC1-2,4-40").Range("B27:J27").RowHeight = 50.25
Worksheets("TC1-2,4-40").Range("B28") = "50.6.3 no..."
Worksheets("TC1-2,4-40").Range("B28:J28").RowHeight = 84
Worksheets("TC1-2,4-40").Range("B29") = "Insert New Clause..."
Worksheets("TC1-2,4-40").Range("B29:J29").RowHeight = 175.5
Worksheets("TC1-2,4-40").Range("B30") = "In line 3..."
Worksheets("TC1-2,4-40").Range("B30:J30").RowHeight = 69.75
Worksheets("TC1-2,4-40").Range("B31") = "In line 1..."
Worksheets("TC1-2,4-40").Range("B31:J31").RowHeight = 36.75
Worksheets("TC1-2,4-40").Cells(32, 1) = "21"
Worksheets("TC1-2,4-40").Range("B32") = "It is a..."
Worksheets("TC1-2,4-40").Range("B32:J32").RowHeight = 48
Worksheets("TC1-2,4-40").Cells(33, 1) = "22"
Worksheets("TC1-2,4-40").Range("B33") = "Any charges..."
Worksheets("TC1-2,4-40").Range("B33:J33").RowHeight = 67.5
Worksheets("TC1-2,4-40").Cells(34, 1) = "23"
Worksheets("TC1-2,4-40").Range("B34") = "The Subcontractor..."
Worksheets("TC1-2,4-40").Range("B34:J34").RowHeight = 54
Worksheets("TC1-2,4-40").Cells(35, 1) = "24"
Worksheets("TC1-2,4-40").Range("B35") = "The Contractor..."
Worksheets("TC1-2,4-40").Range("B35:J35").RowHeight = 43.5
Worksheets("TC1-2,4-40").Cells(36, 1) = "25"
Worksheets("TC1-2,4-40").Range("B36") = "The subcontract..."
Worksheets("TC1-2,4-40").Range("B36:J36").RowHeight = 56.25
Worksheets("TC1-2,4-40").Cells(37, 1) = "26"
Worksheets("TC1-2,4-40").Range("B37") = "The Subcontract..."
Worksheets("TC1-2,4-40").Range("B37:J37").RowHeight = 69.75
Worksheets("TC1-2,4-40").Cells(38, 1) = "27"
Worksheets("TC1-2,4-40").Range("B38") = "The Subcontractor..."
Worksheets("TC1-2,4-40").Range("B38:J38").RowHeight = 37.5
Worksheets("TC1-2,4-40").Cells(39, 1) = "28"
Worksheets("TC1-2,4-40").Range("B39") = "The Subcontractor..."
Worksheets("TC1-2,4-40").Range("B39:J39").RowHeight = 33.75
Worksheets("TC1-2,4-40").Cells(40, 1) = "29"
Worksheets("TC1-2,4-40").Range("B40") = "You shall..."
Worksheets("TC1-2,4-40").Range("B40:J40").RowHeight = 35.25
Worksheets("TC1-2,4-40").Cells(41, 1) = "30"
Worksheets("TC1-2,4-40").Range("B41") = "We will..."
Worksheets("TC1-2,4-40").Range("B41:J41").RowHeight = 52.5
Worksheets("TC1-2,4-40").Cells(42, 1) = "31"
Worksheets("TC1-2,4-40").Range("B42") = "If the site..."
Worksheets("TC1-2,4-40").Range("B42:J42").RowHeight = 57.75
Worksheets("TC1-2,4-40").Cells(43, 1) = "32"
Worksheets("TC1-2,4-40").Range("B43") = "All of your..."
Worksheets("TC1-2,4-40").Range("B43:J43").RowHeight = 51.75
Worksheets("TC1-2,4-40").Cells(44, 1) = "33"
Worksheets("TC1-2,4-40").Range("B44") = "You will be..."
Worksheets("TC1-2,4-40").Range("B44:J44").RowHeight = 55.5
Worksheets("TC1-2,4-40").Cells(45, 1) = "34"
Worksheets("TC1-2,4-40").Range("B45") = "In the event..."
Worksheets("TC1-2,4-40").Range("B45:J45").RowHeight = 113.25
Worksheets("TC1-2,4-40").Cells(46, 1) = "35"
Worksheets("TC1-2,4-40").Range("B46") = "Daily measurement..."
Worksheets("TC1-2,4-40").Range("B46:J46").RowHeight = 33
Worksheets("TC1-2,4-40").Cells(47, 1) = "36"
Worksheets("TC1-2,4-40").Range("B47") = "Your rates..."
Worksheets("TC1-2,4-40").Range("B47:J47").RowHeight = 40.5
Worksheets("TC1-2,4-40").Cells(48, 1) = "37"
Worksheets("TC1-2,4-40").Range("B48") = "We will not..."
Worksheets("TC1-2,4-40").Range("B48:J48").RowHeight = 84
Worksheets("TC1-2,4-40").Cells(49, 1) = "38"
Worksheets("TC1-2,4-40").Range("B49") = "Notwithstanding anything..."
Worksheets("TC1-2,4-40").Range("B49:J49").RowHeight = 100.5
Worksheets("TC1-2,4-40").Cells(50, 1) = "39"
Worksheets("TC1-2,4-40").Range("B50") = "Your rates..."
Worksheets("TC1-2,4-40").Range("B50:J50").RowHeight = 36
Worksheets("TC1-2,4-40").Cells(51, 1) = "40"
Worksheets("TC1-2,4-40").Range("B51") = "You shall at..."
Worksheets("TC1-2,4-40").Range("B51:J51").RowHeight = 82.5
Worksheets("TC1-2,4-40").Rows(1).Rows(50).Delete
 
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
Sheets.Add.Name = "TC1-3,5-40"
Worksheets("TC1-3,5-40").Cells(1, 1) = "No"
Worksheets("TC1-3,5-40").Cells(1, 2) = "T&C"
Worksheets("TC1-3,5-40").Range("A1:B1").Font.Bold = True
Worksheets("TC1-3,5-40").Range("A1:B1").Interior.Color = RGB(59, 179, 73)
Worksheets("TC1-3,5-40").Range("A1:A100").VerticalAlignment = xlCenter
Worksheets("TC1-3,5-40").Range("A1:A100").HorizontalAlignment = xlCenter
Worksheets("TC1-3,5-40").Range("B2:B52").WrapText = True
Worksheets("TC1-3,5-40").Range("A2:A3").MergeCells = True
Worksheets("TC1-3,5-40").Range("B1:J1").MergeCells = True
Worksheets("TC1-3,5-40").Range("B2:J2").MergeCells = True
Worksheets("TC1-3,5-40").Range("B3:J3").MergeCells = True
Worksheets("TC1-3,5-40").Range("B4:J4").MergeCells = True
Worksheets("TC1-3,5-40").Range("B5:J5").MergeCells = True
Worksheets("TC1-3,5-40").Range("B6:J6").MergeCells = True
Worksheets("TC1-3,5-40").Range("B7:J7").MergeCells = True
Worksheets("TC1-3,5-40").Range("B8:J8").MergeCells = True
Worksheets("TC1-3,5-40").Range("B9:J9").MergeCells = True
Worksheets("TC1-3,5-40").Range("B10:J10").MergeCells = True
Worksheets("TC1-3,5-40").Range("B11:J11").MergeCells = True
Worksheets("TC1-3,5-40").Range("B12:J12").MergeCells = True
Worksheets("TC1-3,5-40").Range("B13:J13").MergeCells = True
Worksheets("TC1-3,5-40").Range("B14:J14").MergeCells = True
Worksheets("TC1-3,5-40").Range("B15:J15").MergeCells = True
Worksheets("TC1-3,5-40").Range("B16:J16").MergeCells = True
Worksheets("TC1-3,5-40").Range("B17:J17").MergeCells = True
Worksheets("TC1-3,5-40").Range("B18:J18").MergeCells = True
Worksheets("TC1-3,5-40").Range("B19:J19").MergeCells = True
Worksheets("TC1-3,5-40").Range("B20:J20").MergeCells = True
Worksheets("TC1-3,5-40").Range("B21:J21").MergeCells = True
Worksheets("TC1-3,5-40").Range("B22:J22").MergeCells = True
Worksheets("TC1-3,5-40").Range("B23:J23").MergeCells = True
Worksheets("TC1-3,5-40").Range("B24:J24").MergeCells = True
Worksheets("TC1-3,5-40").Range("B25:J25").MergeCells = True
Worksheets("TC1-3,5-40").Range("B26:J26").MergeCells = True
Worksheets("TC1-3,5-40").Range("B27:J27").MergeCells = True
Worksheets("TC1-3,5-40").Range("B28:J28").MergeCells = True
Worksheets("TC1-3,5-40").Range("B29:J29").MergeCells = True
Worksheets("TC1-3,5-40").Range("B30:J30").MergeCells = True
Worksheets("TC1-3,5-40").Range("B31:J31").MergeCells = True
Worksheets("TC1-3,5-40").Range("B32:J32").MergeCells = True
Worksheets("TC1-3,5-40").Range("B33:J33").MergeCells = True
Worksheets("TC1-3,5-40").Range("B34:J34").MergeCells = True
Worksheets("TC1-3,5-40").Range("B35:J35").MergeCells = True
Worksheets("TC1-3,5-40").Range("B36:J36").MergeCells = True
Worksheets("TC1-3,5-40").Range("B37:J37").MergeCells = True
Worksheets("TC1-3,5-40").Range("B38:J38").MergeCells = True
Worksheets("TC1-3,5-40").Range("B39:J39").MergeCells = True
Worksheets("TC1-3,5-40").Range("B40:J40").MergeCells = True
Worksheets("TC1-3,5-40").Range("B41:J41").MergeCells = True
Worksheets("TC1-3,5-40").Range("B42:J42").MergeCells = True
Worksheets("TC1-3,5-40").Range("B43:J43").MergeCells = True
Worksheets("TC1-3,5-40").Range("B44:J44").MergeCells = True
Worksheets("TC1-3,5-40").Range("B45:J45").MergeCells = True
Worksheets("TC1-3,5-40").Range("B46:J46").MergeCells = True
Worksheets("TC1-3,5-40").Range("B47:J47").MergeCells = True
Worksheets("TC1-3,5-40").Range("B48:J48").MergeCells = True
Worksheets("TC1-3,5-40").Range("B49:J49").MergeCells = True
Worksheets("TC1-3,5-40").Range("B50:J50").MergeCells = True
Worksheets("TC1-3,5-40").Range("B51:J52").MergeCells = True
Worksheets("TC1-3,5-40").Cells(2, 1) = "1"
Worksheets("TC1-3,5-40").Cells(2, 2) = "For the purposes..."
Worksheets("TC1-3,5-40").Range("B2:J2").RowHeight = 138.25
Worksheets("TC1-3,5-40").Range("B3") = "In accordance..."
Worksheets("TC1-3,5-40").Range("B3:J3").RowHeight = 108.75
Worksheets("TC1-3,5-40").Cells(4, 1) = "2"
Worksheets("TC1-3,5-40").Range("B4") = "The subcontract..."
Worksheets("TC1-3,5-40").Range("B4:J4").RowHeight = 93
Worksheets("TC1-3,5-40").Cells(5, 1) = "3"
Worksheets("TC1-3,5-40").Range("B5") = "The subcontractor..."
Worksheets("TC1-3,5-40").Range("B5:J5").RowHeight = 76.5
Worksheets("TC1-3,5-40").Cells(6, 1) = "4"
Worksheets("TC1-3,5-40").Range("B6") = "The subcontractor..."
Worksheets("TC1-3,5-40").Range("B6:J6").RowHeight = 60.75
Worksheets("TC1-3,5-40").Cells(7, 1) = "5"
Worksheets("TC1-3,5-40").Range("B7") = "The subcontractor are required to submit the names of all operatives employed on the scheme on a daily labour and plant return. These returns are to be submitted on the Monday following the week in question. Failure to provide samoen a weekly basis will result in a charge £50.00 per week to cover our costs in undertaking this requirement on your behalf."
Worksheets("TC1-3,5-40").Range("B7:J7").RowHeight = 60.75
Worksheets("TC1-3,5-40").Cells(8, 1) = "6"
Worksheets("TC1-3,5-40").Range("B8") = "The subcontract rates are deemed to include for compliance with the Health & Safety at Work Act 1974. Use of our facilities will not be permitted other than those specifically stated in these terms. If on commencement of the subcontract works the necessary facilities have not been provided by you, then we will provide such facilities as we deem necessary to ensure compliance with the above legislation and will deduct such costs incurred from monies otherwise becoming due."
Worksheets("TC1-3,5-40").Range("B8:J8").RowHeight = 94.5
Worksheets("TC1-3,5-40").Cells(9, 1) = "7"
Worksheets("TC1-3,5-40").Range("B9") = "You shall abide by the provisions of the 'Employers Status of Workers in the Construction Industry' available upon written request."
Worksheets("TC1-3,5-40").Range("B9:J9").RowHeight = 30
Worksheets("TC1-3,5-40").Cells(10, 1) = "8"
Worksheets("TC1-3,5-40").Range("B10") = "It is our policy to operate a Quality Assurance System on all contract. You will be required to conform to these requirements. A copy of our Quality assurance Plan is available for inspection at the site office by prior arrangement with our site agent at any reasonable time during normal office hours."
Worksheets("TC1-3,5-40").Range("B10:J10").RowHeight = 60.75
Worksheets("TC1-3,5-40").Cells(11, 1) = "9"
Worksheets("TC1-3,5-40").Range("B11") = "Working hours..."
Worksheets("TC1-3,5-40").Range("B11:J11").RowHeight = 60.75
Worksheets("TC1-3,5-40").Cells(12, 1) = "10"
Worksheets("TC1-3,5-40").Range("B12") = "You are required..."
Worksheets("TC1-3,5-40").Range("B12:J12").RowHeight = 29.25
Worksheets("TC1-3,5-40").Cells(13, 1) = "11"
Worksheets("TC1-3,5-40").Range("B13") = "During the execution..."
Worksheets("TC1-3,5-40").Range("B13:J13").RowHeight = 45
Worksheets("TC1-3,5-40").Cells(14, 1) = "12"
Worksheets("TC1-3,5-40").Range("B14") = "The subcontract..."
Worksheets("TC1-3,5-40").Range("B14:J14").RowHeight = 59.25
Worksheets("TC1-3,5-40").Cells(15, 1) = "13"
Worksheets("TC1-3,5-40").Range("B15") = "The subcotnractor..."
Worksheets("TC1-3,5-40").Range("B15:J15").RowHeight = 74.25
Worksheets("TC1-3,5-40").Cells(16, 1) = "14"
Worksheets("TC1-3,5-40").Range("B16") = "The subcontract rates..."
Worksheets("TC1-3,5-40").Range("B16:J16").RowHeight = 29.25
Worksheets("TC1-3,5-40").Cells(17, 1) = "15"
Worksheets("TC1-3,5-40").Range("B17") = "Except where..."
Worksheets("TC1-3,5-40").Range("B17:J17").RowHeight = 132.75
Worksheets("TC1-3,5-40").Cells(18, 1) = "16"
Worksheets("TC1-3,5-40").Range("B18") = "The subcontractor..."
Worksheets("TC1-3,5-40").Range("B18:J18").RowHeight = 60
Worksheets("TC1-3,5-40").Cells(19, 1) = "17"
Worksheets("TC1-3,5-40").Range("B19") = "The subcontractor..."
Worksheets("TC1-3,5-40").Range("B19:J19").RowHeight = 30
Worksheets("TC1-3,5-40").Cells(20, 1) = "18"
Worksheets("TC1-3,5-40").Range("B20") = "All documents..."
Worksheets("TC1-3,5-40").Range("B20:J20").RowHeight = 44.25
Worksheets("TC1-3,5-40").Cells(21, 1) = "19"
Worksheets("TC1-3,5-40").Range("B21") = "The subcontractor..."
Worksheets("TC1-3,5-40").Range("B21:J21").RowHeight = 29.25
Worksheets("TC1-3,5-40").Cells(22, 1) = "20"
Worksheets("TC1-3,5-40").Range("A22:A32").MergeCells = True
Worksheets("TC1-3,5-40").Range("B22") = "In line 1..."
Worksheets("TC1-3,5-40").Range("B22:J22").RowHeight = 77.25
Worksheets("TC1-3,5-40").Range("B23") = "Insert New Clause..."
Worksheets("TC1-3,5-40").Range("B23:J23").RowHeight = 96
Worksheets("TC1-3,5-40").Range("B24") = "At the..."
Worksheets("TC1-3,5-40").Range("B24:J24").RowHeight = 21
Worksheets("TC1-3,5-40").Range("B25") = "At the end..."
Worksheets("TC1-3,5-40").Range("B25:J25").RowHeight = 36.75
Worksheets("TC1-3,5-40").Range("B26") = "Insert new Clause..."
Worksheets("TC1-3,5-40").Range("B26:J26").RowHeight = 66.75
Worksheets("TC1-3,5-40").Range("B27") = "50.6.1..."
Worksheets("TC1-3,5-40").Range("B27:J27").RowHeight = 32.25
Worksheets("TC1-3,5-40").Range("B28") = "50.6.2 the..."
Worksheets("TC1-3,5-40").Range("B28:J28").RowHeight = 50.25
Worksheets("TC1-3,5-40").Range("B29") = "50.6.3 no..."
Worksheets("TC1-3,5-40").Range("B29:J29").RowHeight = 84
Worksheets("TC1-3,5-40").Range("B30") = "Insert New Clause..."
Worksheets("TC1-3,5-40").Range("B30:J30").RowHeight = 175.5
Worksheets("TC1-3,5-40").Range("B31") = "In line 3..."
Worksheets("TC1-3,5-40").Range("B31:J31").RowHeight = 69.75
Worksheets("TC1-3,5-40").Range("B32") = "In line 1..."
Worksheets("TC1-3,5-40").Range("B32:J32").RowHeight = 36.75
Worksheets("TC1-3,5-40").Cells(33, 1) = "21"
Worksheets("TC1-3,5-40").Range("B33") = "It is a..."
Worksheets("TC1-3,5-40").Range("B33:J33").RowHeight = 48
Worksheets("TC1-3,5-40").Cells(34, 1) = "22"
Worksheets("TC1-3,5-40").Range("B34") = "Any charges..."
Worksheets("TC1-3,5-40").Range("B34:J34").RowHeight = 67.5
Worksheets("TC1-3,5-40").Cells(35, 1) = "23"
Worksheets("TC1-3,5-40").Range("B35") = "The Subcontractor..."
Worksheets("TC1-3,5-40").Range("B35:J35").RowHeight = 54
Worksheets("TC1-3,5-40").Cells(36, 1) = "24"
Worksheets("TC1-3,5-40").Range("B36") = "The Contractor..."
Worksheets("TC1-3,5-40").Range("B36:J36").RowHeight = 43.5
Worksheets("TC1-3,5-40").Cells(37, 1) = "25"
Worksheets("TC1-3,5-40").Range("B37") = "The subcontract..."
Worksheets("TC1-3,5-40").Range("B37:J37").RowHeight = 56.25
Worksheets("TC1-3,5-40").Cells(38, 1) = "26"
Worksheets("TC1-3,5-40").Range("B38") = "The Subcontract..."
Worksheets("TC1-3,5-40").Range("B38:J38").RowHeight = 69.75
Worksheets("TC1-3,5-40").Cells(39, 1) = "27"
Worksheets("TC1-3,5-40").Range("B39") = "The Subcontractor..."
Worksheets("TC1-3,5-40").Range("B39:J39").RowHeight = 37.5
Worksheets("TC1-3,5-40").Cells(40, 1) = "28"
Worksheets("TC1-3,5-40").Range("B40") = "The Subcontractor..."
Worksheets("TC1-3,5-40").Range("B40:J40").RowHeight = 33.75
Worksheets("TC1-3,5-40").Cells(41, 1) = "29"
Worksheets("TC1-3,5-40").Range("B41") = "You shall..."
Worksheets("TC1-3,5-40").Range("B41:J41").RowHeight = 35.25
Worksheets("TC1-3,5-40").Cells(42, 1) = "30"
Worksheets("TC1-3,5-40").Range("B42") = "We will provide..."
Worksheets("TC1-3,5-40").Range("B42:J42").RowHeight = 52.5
Worksheets("TC1-3,5-40").Cells(43, 1) = "31"
Worksheets("TC1-3,5-40").Range("B43") = "If the..."
Worksheets("TC1-3,5-40").Range("B43:J43").RowHeight = 57.75
Worksheets("TC1-3,5-40").Cells(44, 1) = "32"
Worksheets("TC1-3,5-40").Range("B44") = "All of your..."
Worksheets("TC1-3,5-40").Range("B44:J44").RowHeight = 51.75
Worksheets("TC1-3,5-40").Cells(45, 1) = "33"
Worksheets("TC1-3,5-40").Range("B45") = "You will be..."
Worksheets("TC1-3,5-40").Range("B45:J45").RowHeight = 55.5
Worksheets("TC1-3,5-40").Cells(46, 1) = "34"
Worksheets("TC1-3,5-40").Range("B46") = "In the event..."
Worksheets("TC1-3,5-40").Range("B46:J46").RowHeight = 113.25
Worksheets("TC1-3,5-40").Cells(47, 1) = "35"
Worksheets("TC1-3,5-40").Range("B47") = "Daily measurement..."
Worksheets("TC1-3,5-40").Range("B47:J47").RowHeight = 33
Worksheets("TC1-3,5-40").Cells(48, 1) = "36"
Worksheets("TC1-3,5-40").Range("B48") = "Your rates..."
Worksheets("TC1-3,5-40").Range("B48:J48").RowHeight = 40.5
Worksheets("TC1-3,5-40").Cells(49, 1) = "37"
Worksheets("TC1-3,5-40").Range("B49") = "We will..."
Worksheets("TC1-3,5-40").Range("B49:J49").RowHeight = 84
Worksheets("TC1-3,5-40").Cells(50, 1) = "38"
Worksheets("TC1-3,5-40").Range("B50") = "Notwithstanding anything..."
Worksheets("TC1-3,5-40").Range("B50:J50").RowHeight = 100.5
Worksheets("TC1-3,5-40").Cells(51, 1) = "39"
Worksheets("TC1-3,5-40").Range("B51") = "Your rates..."
Worksheets("TC1-3,5-40").Range("B51:J51").RowHeight = 36
Worksheets("TC1-3,5-40").Cells(52, 1) = "40"
Worksheets("TC1-3,5-40").Range("B52") = "You shall at..."
Worksheets("TC1-3,5-40").Range("B52:J52").RowHeight = 82.5
Worksheets("TC1-3,5-40").Rows(1).Rows(6).Delete
 
End If
 
 
 
End Sub

**Bob Phillips** · 08-23-2014, 03:47 PM

Private Sub OK_Click()
Dim aryHeights As Variant

    Unload UserForm1
    
    aryHeights = Array(138.25, 108.75, 93, 76.5, 60.75, 60.75, 94.5, 30, 60.75, _
                       60.75, 29.25, 45, 59.25, 74.25, 29.25, 132.75, 60, 30, 44.25, _
                       29.25, 77.25, 96, 21, 36.75, 66.75, 32.25, 50.25, 84, 175.5, _
                       69.75, 36.75, 48, 67.5, 54, 43.5, 56.25, 69.75, 37.5, 37.5, 33.75, _
                       35.25, 52.5, 57.75, 51.75, 55.5, 113.25, 33, 40.5, 84, 100.5, 36, 82.5)
     
    With Worksheets("Data")
    
        .Cells(1, 1).Select
     
        'Worksheets("Data").Cells(2, 1). = ActiveCell
        Do While ActiveCell.Value <> Empty
        
            rowNr = rowNr + 1
            ActiveCell.Offset(1, 0).Select
        Loop
        'MsgBox rowNr
        rowNr = rowNr + 1

        .Cells(2, 3) = CheckBox1.Value
        .Cells(3, 3) = CheckBox2.Value
        .Cells(4, 3) = CheckBox3.Value
        .Cells(5, 3) = CheckBox4.Value
        .Cells(6, 3) = CheckBox5.Value
        .Cells(7, 3) = CheckBox6.Value
        .Cells(8, 3) = CheckBox7.Value
        .Cells(9, 3) = CheckBox8.Value
        .Cells(10, 3) = CheckBox9.Value
        .Cells(11, 3) = CheckBox10.Value
    End With
     
    If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True And _
       CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And _
       CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And _
       CheckBox13 = True And CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And _
       CheckBox17 = True And CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And _
       CheckBox21 = True And CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And _
       CheckBox25 = True And CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And _
       CheckBox29 = True And CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And _
       CheckBox33 = True And CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And _
       CheckBox37 = True And CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
        
        Call SetupData("TC1-40", aryHeights)

        With Worksheets("TC1-40")
       
            .Range("B2") = "For the purposes of this subcontract..."
            .Range("B3") = "In accordance with..."
            .Range("B4") = "The subcontract..."
            .Range("B5") = "The subcontractor shall..."
            .Range("B6") = "The subcontractor shall..."
            .Range("B7") = "The subcontractor..."
            .Range("B8") = "The subcontract..."
            .Range("B9") = "You shall..."
            .Range("B10") = "It is our..."
            .Range("B11") = "Working hours shall..."
            .Range("B13") = "During the execution..."
            .Range("B12") = "You are..."
            .Range("B13") = "During the execution..."
            .Range("B14") = "The subcontract rates..."
            .Range("B15") = "The subcotnractor shall..."
            .Range("B16") = "The subcontract rates..."
            .Range("B17") = "Except where..."
            .Range("B18") = "The subcontractor..."
            .Range("B19") = "The subcontractor..."
            .Range("B20") = "All documents..."
            .Range("B21") = "The subcontractor..."
            .Range("B22") = "In line 1 of..."
            .Range("B23") = "Insert New Clause..."
            .Range("B24") = "At the beginning..."
            .Range("B25") = "At the end..."
            .Range("B26") = "Insert new..."
            .Range("B27") = "50.6.1 the..."
            .Range("B28") = "50.6.2 the..."
            .Range("B29") = "50.6.3 no..."
            .Range("B30") = "Insert New Clause..."
            .Range("B31") = "In line 3..."
            .Range("B32") = "In line 1..."
            .Range("B33") = "It is a..."
            .Range("B34") = "Any charges due..."
            .Range("B35") = "The Subcontractor..."
            .Range("B36") = "The Contracto..."
            .Range("B37") = "The subcontract..."
            .Range("B38") = "The Subcontract..."
            .Range("B39") = "The Subcontractor..."
            .Range("B40") = "The Subcontractor..."
            .Range("B41") = "You shall..."
            .Range("B42") = "We will provide..."
            .Range("B43") = "If the..."
            .Range("B44") = "All of your..."
            .Range("B45") = "You will be..."
            .Range("B46") = "In the event..."
            .Range("B47") = "Daily measurement..."
            .Range("B48") = "Your rates..."
            .Range("B49") = "We will not..."
            .Range("B50") = "Notwithstanding anything..."
            .Range("B51") = "Your rates..."
            .Range("B52") = "You shall..."
        End With
         
    ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True And _
           CheckBox5 = True And CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And _
           CheckBox9 = True And CheckBox10 = True And CheckBox11 = True And CheckBox13 = True And _
           CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And _
           CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And _
           CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And _
           CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And _
           CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And _
           CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And _
           CheckBox38 = True And CheckBox39 = True Then
        
        Call SetupData("TC1-39", aryHeights)
        
        With Worksheets("TC1-39")
        
            .Range("B2") = "For the purposes..."
            .Range("B3") = "In accordance..."
            .Range("B4") = "The subcontract..."
            .Range("B5") = "The subcontractor..."
            .Range("B6") = "The subcontractor..."
            .Range("B7") = "The subcontractor..."
            .Range("B8") = "The subcontract..."
            .Range("B9") = "You shall..."
            .Range("B10") = "It is our..."
            .Range("B11") = "Working hours..."
            .Range("B12") = "You are..."
            .Range("B13") = "During the..."
            .Range("B14") = "The subcontract..."
            .Range("B15") = "The subcotnractor..."
            .Range("B16") = "The subcontract..."
            .Range("B17") = "Except where..."
            .Range("B18") = "The subcontractor..."
            .Range("B19") = "The subcontractor..."
            .Range("B20") = "All documents..."
            .Range("B21") = "The subcontractor..."
            .Range("B23") = "Insert New Clause..."
            .Range("B24") = "At the..."
            .Range("B25") = "At the end..."
            .Range("B26") = "Insert new Clause..."
            .Range("B28") = "50.6.2 the..."
            .Range("B29") = "50.6.3..."
            .Range("B30") = "Insert New Clause..."
            .Range("B31") = "In line 3..."
            .Range("B32") = "In line 1..."
            .Range("B33") = "It is..."
            .Range("B34") = "Any charges due..."
            .Range("B35") = "The Subcontractor..."
            .Range("B36") = "The Contractor..."
            .Range("B37") = "The subcontract rates..."
            .Range("B38") = "The Subcontract Works..."
            .Range("B39") = "The Subcontractor..."
            .Range("B40") = "The Subcontractor..."
            .Range("B41") = "You shall..."
            .Range("B42") = "We will provide..."
            .Range("B43") = "If the site..."
            .Range("B44") = "All of your..."
            .Range("B45") = "You will be..."
            .Range("B46") = "In the event..."
            .Range("B47") = "Daily measurement..."
            .Range("B48") = "Your rates..."
            .Range("B49") = "We will not..."
            .Range("B50") = "Notwithstanding anything..."
            .Range("B51") = "Your rates and prices include for undertaking the subcontract works in the number visits required to suit our main contract program."
        End With
         
    ElseIf CheckBox1 = True And CheckBox3 = True And CheckBox4 = True And CheckBox5 = True And _
           CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And _
           CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And _
           CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And _
           CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And _
           CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And _
           CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And _
           CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And _
           CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And _
           CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
        
        Call SetupData("TC1,3-40", aryHeights)
        
        With Worksheets("TC1,3-40")
        
            .Range("B2") = "For the purposes..."
            .Range("B3") = "In accordance..."
            .Range("B4") = "The subcontractor..."
            .Range("B5") = "The subcontractor..."
            .Range("B6") = "The subcontractor..."
            .Range("B7") = "The subcontract..."
            .Range("B8") = "You shall..."
            .Range("B9") = "It is our policy..."
            .Range("B10") = "Working hours..."
            .Range("B11") = "You are required..."
            .Range("B12") = "During the execution...."
            .Range("B13") = "The subcontract..."
            .Range("B14") = "The subcotnractor..."
            .Range("B15") = "The subcontract..."
            .Range("B16") = "Except where..."
            .Range("B17") = "The subcontractor..."
            .Range("B18") = "The subcontractor..."
            .Range("B19") = "All documents..."
            .Range("B20") = "The subcontractor..."
            .Range("B21") = "In line 1..."
            .Range("B22") = "Insert New Clause..."
            .Range("B23") = "At the..."
            .Range("B24") = "At the end..."
            .Range("B25") = "Insert new Clause..."
            .Range("B26") = "50.6.1 the..."
            .Range("B27") = "50.6.2 the..."
            .Range("B28") = "50.6.3 no further..."
            .Range("B29") = "Insert New Clause..."
            .Range("B30") = "In line 3..."
            .Range("B31") = "In line 1..."
            .Range("B32") = "It is a..."
            .Range("B33") = "Any charges due..."
            .Range("B34") = "The Subcontractor..."
            .Range("B35") = "The Contractor shall..."
            .Range("B36") = "The subcontract..."
            .Range("B37") = "The Subcontract..."
            .Range("B38") = "The Subcontractor..."
            .Range("B39") = "The Subcontractor..."
            .Range("B40") = "You shall..."
            .Range("B41") = "We will..."
            .Range("B42") = "If the site..."
            .Range("B43") = "All of your..."
            .Range("B44") = "You will be..."
            .Range("B45") = "In the event..."
            .Range("B46") = "Daily measurement..."
            .Range("B47") = "Your rates..."
            .Range("B48") = "We will not..."
            .Range("B49") = "Notwithstanding anything..."
            .Range("B50") = "Your rates..."
            .Range("B51") = "You shall at..."
         
    ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox4 = True And CheckBox5 = True And _
           CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And _
           CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And _
           CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And _
           CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And _
           CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And _
           CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And _
           CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And _
           CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And _
           CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
        
        Call SetupData("TC1-2,4-40", aryHeights)
        
        With Worksheets("TC1-2,4-40")
        
            .Range("B2") = "For the..."
            .Range("B3") = "In accordance..."
            .Range("B4") = "The subcontract..."
            .Range("B5") = "The subcontractor..."
            .Range("B6") = "The subcontractor..."
            .Range("B7") = "The subcontract..."
            .Range("B8") = "You shall..."
            .Range("B9") = "It is our..."
            .Range("B10") = "Working hours..."
            .Range("B11") = "You are..."
            .Range("B12") = "During the..."
            .Range("B13") = "The subcontract..."
            .Range("B14") = "The subcotnractor..."
            .Range("B15") = "The subcontract..."
            .Range("B16") = "Except where..."
            .Range("B17") = "The subcontractor..."
            .Range("B18") = "The subcontractor..."
            .Range("B19") = "All documents...."
            .Range("B20") = "The subcontractor"
            .Range("B21") = "In line 1..."
            .Range("B22") = "Insert New Clause...'"
            .Range("B23") = "At the..."
            .Range("B24") = "At the end..."
            .Range("B25") = "Insert new Clause..."
            .Range("B26") = "50.6.1..."
            .Range("B27") = "50.6.2 the..."
            .Range("B28") = "50.6.3 no..."
            .Range("B29") = "Insert New Clause..."
            .Range("B30") = "In line 3..."
            .Range("B31") = "In line 1..."
            .Range("B32") = "It is a..."
            .Range("B33") = "Any charges..."
            .Range("B34") = "The Subcontractor..."
            .Range("B35") = "The Contractor..."
            .Range("B36") = "The subcontract..."
            .Range("B37") = "The Subcontract..."
            .Range("B38") = "The Subcontractor..."
            .Range("B39") = "The Subcontractor..."
            .Range("B40") = "You shall..."
            .Range("B41") = "We will..."
            .Range("B42") = "If the site..."
            .Range("B43") = "All of your..."
            .Range("B44") = "You will be..."
            .Range("B45") = "In the event..."
            .Range("B46") = "Daily measurement..."
            .Range("B47") = "Your rates..."
            .Range("B48") = "We will not..."
            .Range("B49") = "Notwithstanding anything..."
            .Range("B50") = "Your rates..."
            .Range("B51") = "You shall at..."
         
    ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox5 = True And _
           CheckBox6 = True And CheckBox7 = True And CheckBox8 = True And CheckBox9 = True And _
           CheckBox10 = True And CheckBox11 = True And CheckBox12 = True And CheckBox13 = True And _
           CheckBox14 = True And CheckBox15 = True And CheckBox16 = True And CheckBox17 = True And _
           CheckBox18 = True And CheckBox19 = True And CheckBox20 = True And CheckBox21 = True And _
           CheckBox22 = True And CheckBox23 = True And CheckBox24 = True And CheckBox25 = True And _
           CheckBox26 = True And CheckBox27 = True And CheckBox28 = True And CheckBox29 = True And _
           CheckBox30 = True And CheckBox31 = True And CheckBox32 = True And CheckBox33 = True And _
           CheckBox34 = True And CheckBox35 = True And CheckBox36 = True And CheckBox37 = True And _
           CheckBox38 = True And CheckBox39 = True And CheckBox40 = True Then
        
        Call SetupData("TC1-3,5-40", aryHeights)
        
        With Worksheets("TC1-3,5-40")
        
            .Range("B2") = "For the purposes..."
            .Range("B3") = "In accordance..."
            .Range("B4") = "The subcontract..."
            .Range("B5") = "The subcontractor..."
            .Range("B6") = "The subcontractor..."
            .Range("B7") = "The subcontractor are required to submit the names of all operatives employed on the scheme on a daily labour and plant return. These returns are to be submitted on the Monday following the week in question. Failure to provide samoen a weekly basis will result in a charge £50.00 per week to cover our costs in undertaking this requirement on your behalf."
            .Range("B8") = "The subcontract rates are deemed to include for compliance with the Health & Safety at Work Act 1974. Use of our facilities will not be permitted other than those specifically stated in these terms. If on commencement of the subcontract works the necessary facilities have not been provided by you, then we will provide such facilities as we deem necessary to ensure compliance with the above legislation and will deduct such costs incurred from monies otherwise becoming due."
            .Range("B9") = "You shall abide by the provisions of the 'Employers Status of Workers in the Construction Industry' available upon written request."
            .Range("B10") = "It is our policy to operate a Quality Assurance System on all contract. You will be required to conform to these requirements. A copy of our Quality assurance Plan is available for inspection at the site office by prior arrangement with our site agent at any reasonable time during normal office hours."
            .Range("B11") = "Working hours..."
            .Range("B12") = "You are required..."
            .Range("B13") = "During the execution..."
            .Range("B14") = "The subcontract..."
            .Range("B15") = "The subcotnractor..."
            .Range("B16") = "The subcontract rates..."
            .Range("B17") = "Except where..."
            .Range("B18") = "The subcontractor..."
            .Range("B19") = "The subcontractor..."
            .Range("B20") = "All documents..."
            .Range("B21") = "The subcontractor..."
            .Range("B23") = "Insert New Clause..."
            .Range("B25") = "At the end..."
            .Range("B26") = "Insert new Clause..."
            .Range("B28") = "50.6.2 the..."
            .Range("B29") = "50.6.3 no..."
            .Range("B30") = "Insert New Clause..."
            .Range("B31") = "In line 3..."
            .Range("B32") = "In line 1..."
            .Range("B33") = "It is a..."
            .Range("B34") = "Any charges..."
            .Range("B35") = "The Subcontractor..."
            .Range("B36") = "The Contractor..."
            .Range("B37") = "The subcontract..."
            .Range("B38") = "The Subcontract..."
            .Range("B39") = "The Subcontractor..."
            .Range("B40") = "The Subcontractor..."
            .Range("B41") = "You shall..."
            .Range("B42") = "We will provide..."
            .Range("B43") = "If the..."
            .Range("B44") = "All of your..."
            .Range("B45") = "You will be..."
            .Range("B46") = "In the event..."
            .Range("B47") = "Daily measurement..."
            .Range("B48") = "Your rates..."
            .Range("B49") = "We will..."
            .Range("B50") = "Notwithstanding anything..."
            .Range("B51") = "Your rates..."
            .Range("B52") = "You shall at..."
            .Rows(1).Rows(6).Delete
        End With
    End If
End Sub

Private Function SetupData(ByRef WSName As String, ByVal Heights As Variant)
Dim ws As Worksheet
Dim aryHeights(1 To 51)
Dim i As Long

    Set ws = Worksheets.Add
        
    With ws
    
        .Name = WSName
        .Cells(1, 1) = "No"
        .Cells(1, 2) = "T&C"
        .Range("A1:B1").Font.Bold = True
        .Range("A1:B1").Interior.Color = RGB(59, 179, 73)
        .Range("A1:A100").VerticalAlignment = xlCenter
        .Range("A1:A100").HorizontalAlignment = xlCenter
        .Range("B2:B51").WrapText = True
        .Range("A2:A3").MergeCells = True
        
        For i = 1 To 52
        
            .Cells(i, "B").Resize(, 9).MergeCells = True
        Next i
        
        .Cells(2, 1) = "1"
        For i = 2 To 20: .Cells(i + 2, 1) = i: Next i
        For i = 21 To 40: .Cells(i + 12, 1) = i: Next i
        For i = 2 To 52
        
            .Rows(i).Height = Heights(i - 2)
        Next i
        
        .Range("A22:A32").MergeCells = True
    End With
End Function

Thread: VBA Ok Click() If Statement Procedure Too Long

Thread Tools

Display

VBA Ok Click() If Statement Procedure Too Long

Posting Permissions