I have a small userform which simply adds some checks and fees. There are 2 TextBoxes, and 2 Buttons.
These are the controls, and the Tab order:

TextBox1 = Enter Check amount
TextBox2 = Enter Fee
CommandButton1 = Enter
CommandButton2 = Exit.

The way I want this form to work is: Open with focus on TextBox1. The user makes an entry in TextBox1 and presses Enter on the keyboard to set focus on TextBox2. The user makes an entry to TextBox2 and presses Enter on the keyboard (or the CommandButton1) The entries are added to a sheet.

I have the form working properly except for the behavior of the enter button. As it stands, It works as I want except that I have to press the Enter button twice to add the figures to the sheet. Setting the default for the Enter button to TRUE doesn't work either. That just bypasses TextBox2 when I press Enter (on the keyboard) the first time. Thanks for any help

Private Sub CommandButton1_Click()

On Error Resume Next
ActiveSheet.Range("D25") = Format(ActiveSheet.Range("D25").Value + TextBox1.Value, "$#,##0.00")
ActiveSheet.Range("D26") = Format(ActiveSheet.Range("D26").Value + TextBox2.Value, "$#,##0.00")
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
ActiveSheet.Range("D22").Select
End Sub