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

Moo, Plaats je workbook als het kan. Dan wordt er gericht meegekeken.

Groet, Leo

Moo, Ik heb de volgende 'work around' bedacht. Maak gebruik van een algemene variabele (die zet je dus als allereerste regel van je procedure)...
Dim dTotaal As Double
Daarna verander je de regel waar het fout loopt in...c.Offset(r, 6) = dTotaalEn maak je 3 events aan voor de tekstboxenPrivate Sub tekstbox2_AfterUpdate()
    dTotaal = dTotaal + CDbl(tekstbox2.Value)
End Sub

Private Sub tekstbox3_AfterUpdate()
    dTotaal = dTotaal + CDbl(tekstbox3.Value)
End Sub

Private Sub tekstbox4_AfterUpdate()
    dTotaal = dTotaal + CDbl(tekstbox4.Value)
End Sub
Iedere keer als je een tekstbox een nieuwe waarde geeft zal dit worden opgeteld bij de variabele dTotaal. Hmmmm... Moet je alleen ff oppassen bij het fout intikken van een waarde. Als je dan de box hebt verlaten zal deze er bijgeteld staan en als je daarna het 'goede' getal invoert, zal deze er óók bij opgeteld worden...
't Is een oplossing, maar nog niet naar m'n volle tevredenheid.

Groet, Leo

Moo, Soms is het zo simpel, dat je (lees: ik) er gewoon over heen kijkt.     Maar met ff rustig denken lukt het we!   Je moet eerst een value maken van de waarde van de textbox. Dat doe je met de functie Val. Plaats deze regel maar 'ns in je voorbeeldsheet (en daarna aanpassen in je orgineel)...c.Offset(r, 6) = CDbl(Val(tekstbox2.Value)) + CDbl(Val(tekstbox3.Value)) + CDbl(Val(tekstbox4.Value))
Groet, Leo