thanks for that but it was actually just excel freaking out a tad... I
reset my PC and now it all works good but I have a brand new problem
Im afraid.

The code below basically creates a few constraints for solver but for
some reason I can't get the 3 line with arrows to the left to work...
I get the canstraints all set to zero or they are set to the cell
before that but never thetwain shall meet... thanks

If CheckBox1.Value = True Then
total = TextBox1
Sheet1.Cells(116, 3) = TextBox1
For chkcount = 0 To Sheet2.Cells(20, 9) - 1
Sheet1.Cells(106, 3 + chkcount) = 1

'solverchange cellref:=Sheet1.Cells(106, 4 + chkcount),
relation:=3, formulatext:=0
If chkcount = 0 Then
solveradd cellref:=Sheet1.Cells(106, 4 + chkcount),
relation:=1, formulatext:=100 / TextBox1
'solverchange cellref:=Sheet1.Cells(106, 3 +
chkcount), relation:=1, formulatext:=100 / TextBox1
Else
solveradd cellref:=Sheet1.Cells(106, 4 + chkcount),
relation:=1, formulatext:=Sheet1.Cells(106, 4 + chkcount - 1)
<-------------------------------------
solverchange cellref:=Sheet1.Cells(106, 4 + chkcount),
relation:=1, formulatext:=Sheet1.Cells(106, 4 + chkcount -
1)<-------------------------------------
End If
solveradd cellref:=Sheet1.Cells(106, 4 + chkcount),
relation:=3, formulatext:=0<-------------------------------------



Next chkcount