Sum up textboxes on userform that are updated by afterupdate code

[sueanne]

Hi all,

I have 10 text boxes names "Total1-10" that are updated with the following code.

Private Sub cboIC1_AfterUpdate()
If UP1.Value = "" Then Exit Sub
Total1.Value = Format((Qty1.Value * UP1.Value), "$#,##0.00")
End Sub

I now want to add up the 10 text boxes in another text box "Subttl" and return it as a $0.00 value. I have the following code in at the moment

[CODE]
Private Sub Total1_AfterUpdate()
Subttl.Value = "$" & Val(Total1) + Val(Total2) + Val(Total3) + Val(Total4) + Val(Total5) + Val(Total6) + Val(Total7) + Val(Total8) + Val(Total9) + Val(Total10)
End Sub

The Subttl text box doesn't update, unless I manually type in the value to the "Total" text boxes. How do I make it update automatically once the "Total" textboxes are populated?

I have tried the above code, also tried the _change() action and neither seem to auto populate the Subttl textbox. 

I have looked at quite a few different examples on here, including putting a function in called oSum in Module and then calling that in Private Sub Total1_change() but that didn't work either.

Any help would be greatly appreciated! :)

 

[sueanne]

Its ok thanks peoples, I have worked it out