I've got an invoicing macro that totals 4 amount boxes and a amount
paid box (input boxes on the form). I'm trying to get the total box to
update based on the amounts in this box, but i keep getting a type
mismatch, here's what i have for the change events on the five inpute
boxes

Private Sub FirstAmtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
BalanceDueAmountBox.Value = ((FirstAmtBox.Value * 1) +
(SecondAmtBox.Value * 1) + _
(ThirdAmtBox.Value * 1) + (FourthAmtBox.Value * 1) -
(AmtPaidBox.Value * 1))
End Sub

any suggestions?

Hello Craig,

Try this...

Private Sub FirstAmtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim AmountDue
AmountDue = CCur(FirstAmtBox.Text ) +
CCur(SecondAmtBox.Text ) + _
CCur(ThirdAmtBox.Text ) + CCur(FourthAmtBox.Text) -
CCur(AmtPaidBox.Text)
BalanceDueAmountBox.Text = Format(AmountDue, "Currency")
End Sub

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=544532

Your code seems to run fine. You might want to check that you have named
your textboxes correctly as using a wrong name will cause a new variable
to be declared. This new variable will be given the Variant type,
causing the type mismatch error.


--
C01d
------------------------------------------------------------------------
C01d's Profile: http://www.excelforum.com/member.php...o&userid=34422
View this thread: http://www.excelforum.com/showthread...hreadid=544532