I can't diagnose things from a picture but I'm guessing you didn't set the tag value on the controls that should be included in the total. For each of those controls, look in the properties window and set the value in the Tag property to AddMe

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

You just lightened a very heavy load.
I completely missed the step in your first post about the "Tag Property".
Once I corrected this on my end, the code works perfectly.
Thank you so much.
Problem solved.

I have another issue related to this same problem.

I have a second and third totals to add to the same table.
So I used the following.

Private Sub tbamt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbamt1) = True Then SuperAdder
End Sub

Private Sub tbamt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbamt2) = True Then SuperAdder
End Sub

Private Sub tbamt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbamt3) = True Then SuperAdder
End Sub

Private Sub tbamt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbamt4) = True Then SuperAdder
End Sub

Private Sub tbamt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbamt5) = True Then SuperAdder
End Sub

Private Sub tbamt6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbamt6) = True Then SuperAdder
End Sub

Private Function FormatCell(aCtl As Control) As Boolean
If IsNumeric(aCtl.Value) Then
aCtl.Value = Format(aCtl.Value, "#,##0.00;(#,##0.00);0")
FormatCell = True
ElseIf aCtl = "" Then
aCtl = 0
FormatCell = True
End If
End Function

Private Sub SuperAdder()
Dim aCtl As Control, dblTotal As Double
For Each aCtl In Me.Controls
If aCtl.Tag = "AddMe" Then
If IsNumeric(aCtl) Then dblTotal = dblTotal + aCtl
End If
Next aCtl
Me.tbgtotal = Format(dblTotal, "#,##0.00;(#,##0.00);0")
End Sub



Private Sub tbsubamt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbsubamt1) = True Then SuperAdd
End Sub
Private Sub tbsubamt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbsubamt2) = True Then SuperAdd
End Sub
Private Sub tbsubamt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbsubamt3) = True Then SuperAdd
End Sub
Private Sub tbsubamt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbsubamt4) = True Then SuperAdd
End Sub
Private Sub SuperAdd()
Dim aCtl As Control, dblTotal As Double
For Each aCtl In Me.Controls
If aCtl.Tag = "Subit" Then
If IsNumeric(aCtl) Then dblTotal = dblTotal + aCtl
End If
Next aCtl
Me.tbsubtot = Format(dblTotal, "$#,##0.00;($#,##0.00);0")
End Sub
Private Sub tbtotalsub_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbtotalsub) = True Then SuperAd
End Sub
Private Sub tbsubtot_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If FormatCell(tbsubtot) = True Then SuperAd
End Sub
Private Sub SuperAd()
Dim aCtl As Control, dblTotal As Double
For Each aCtl In Me.Controls
If aCtl.Tag = "grandt" Then
If IsNumeric(aCtl) Then dblTotal = dblTotal + aCtl
End If
Next aCtl
Me.tbgrantot = Format(dblTotal, "$#,##0.00;($#,##0.00);0")
End Sub



Everything works except the grand total "tbgrantot".
What I am trying to do is sum tbgtotal + tbsubtot = tbgrantot
so I tagged tbgtotal and tbsubtot but nothing shows up in tbgrantot
Help..