Code:

```
Dim Form, a, b, c, d, e, f, g, h, i, j, k As String
Dim TxtRng As Range
Dim wb As Workbook
Dim ws As Worksheet
a = "=IF($H2=""No"","""","
b = "IF(($B2-I$1)<100,"""","
c = "IF(((($B2-I$1)*$C2)*1000000)<260000000000,"""","
d = "IF(((I$1*$C2)*1000000)<330000000000,"""","
e = "IF(AND(($B2-I$1)>=200,($B2-I$1)<=800,((($B2-I$1)*$C2)*1000000)>=620000000000,((($B2-I$1)*$C2)*1000000)<=920000000000,I$1>=375,I$1<=420,((I$1*$C2)*1000000)>=680000000000,((I$1*$C2)*1000000)<=790000000000,$C2>=1300,$C2<=2100),1,"
f = "IF(AND(($B2-I$1)>=270,($B2-I$1)<=325,((($B2-I$1)*$C2)*1000000)>=330000000000,((($B2-I$1)*$C2)*1000000)<=500000000000,I$1>=375,I$1<=420,((I$1*$C2)*1000000)>=680000000000,((I$1*$C2)*1000000)<=790000000000,$C2>=1300,$C2<=2000),2,"
g = "IF(AND(($B2-I$1)>=100,($B2-I$1)<=400,((($B2-I$1)*$C2)*1000000)>=300000000000,((($B2-I$1)*$C2)*1000000)<=510000000000,I$1>=375,I$1<=420,((I$1*$C2)*1000000)>=680000000000,((I$1*$C2)*1000000)<=790000000000,$C2>=1300,$C2<=2100),3,"
h = "IF(AND(($B2-I$1)>=200,($B2-I$1)<=400,((($B2-I$1)*$C2)*1000000)>=520000000000,((($B2-I$1)*$C2)*1000000)<=610000000000,I$1>=375,I$1<=420,((I$1*$C2)*1000000)>=680000000000,((I$1*$C2)*1000000)<=790000000000,$C2>=1300,$C2<=2100),4,"
i = "IF(AND(($B2-I$1)>=100,($B2-I$1)<=400,((($B2-I$1)*$C2)*1000000)>=300000000000,((($B2-I$1)*$C2)*1000000)<=510000000000,I$1>=540,I$1<=650,((I$1*$C2)*1000000)>=660000000000,((I$1*$C2)*1000000)<=1000000000000,$C2>=900,$C2<=2000),5,"
j = "IF(AND(($B2-I$1)>=200,($B2-I$1)<=800,((($B2-I$1)*$C2)*1000000)>=620000000000,((($B2-I$1)*$C2)*1000000)<=920000000000,I$1>=270,I$1<=325,((I$1*$C2)*1000000)>=330000000000,((I$1*$C2)*1000000)<=500000000000,$C2>=900,$C2<=2000),6,"
k = "IF(AND(($B2-I$1)>=100,($B2-I$1)<=400,((($B2-I$1)*$C2)*1000000)>=300000000000,((($B2-I$1)*$C2)*1000000)<=510000000000,I$1>=270,I$1<=325,((I$1*$C2)*1000000)>=330000000000,((I$1*$C2)*1000000)<=500000000000,$C2>=900,$C2<=2000),7,"")))))))))))"
Form = a & b & c & d & e & f & g & h & i & j & k
Set wb = ActiveWorkbook
Set ws = wb.Sheets("Uneven Split Job Aid")
Set TxtRng = ws.Range.Value("I2")
TxtRng.Value = Form
```

Code:

`Set TxtRng = ws.Range.Value("I2")`

Thanks for any help