Private Sub CommandButton1_Click()
Me.Frame1.Visible = True
Me.Frame2.Visible = False
Me.TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Me.Frame1.Visible = False
Me.Frame2.Visible = True
Me.TextBox2.SetFocus
End Sub
Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Proper(TextBox1)
End Sub
Private Sub TextBox2_Change()
TextBox2 = WorksheetFunction.Proper(TextBox2)
End Sub
Private Sub UserForm_Initialize()
CommandButton1_Click
End Sub