UserForm Setfocus Problem

[Guest]

I have several textboxes to collect bank account details. I'm running the
following code on exit:

Private Sub txtBankNum1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txtBankNum1) < 2 Then
MsgBox "Please enter the two digit bank code."
txtBankNum1.SetFocus
End If
End Sub

Problem is that this doesn't reset the cursor to txtBankNum1, it just moves
on to the next box as normal. Any ideas?

 

[Guest]

Have you tried
Private Sub txtBankNum1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txtBankNum1) < 2 Then
MsgBox "Please enter the two digit bank code."
Cancel = True
End If
End Sub

hth

Geoff

 

[Guest]

Cheers, perfect.

Have you tried
Private Sub txtBankNum1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txtBankNum1) < 2 Then
MsgBox "Please enter the two digit bank code."
Cancel = True
End If
End Sub

hth

Geoff