Moo, Dit zou kunnen werken (niet getest!)
c.Offset(r, 26) = worksheetfunction.sum(CDbl(TextBox3.Value),CDbl(TextBox5.Value),CDbl(TextBox7.Value),CDbl(TextBox9.Value),CDbl(TextBox11.Value),CDbl(TextBox13.Value),CDbl(TextBox15.Value),CDbl(TextBox17.value),CDbl(TextBox19.value),CDbl(TextBox21.value))
Groet, Leo