This is probably something too simple....

As you can see below, I have put this line of code everywhere I can
think of. But, TextBox2 still comes up active. I even tried
UserForm4.TextBox1.SetFocus with no better results. Can anyone spot my
obvious error???
Thanks,
J.O.


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'This will check to make sure the PO# the user entered is not already
on
'the list. If so, message box comes up.

With Worksheets("Official list")

'TextBox1.SetFocus

If TextBox1.Text <> "" And Not .Range("j:j").Find(TextBox1.Text,
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) Is Nothing Then
MsgBox "This PO/PL is already on the list. Please enter the
information in the existing Record."

'This will clear all testboxes
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
ctl.Text = ""
'TextBox1.SetFocus

End If
Next ctl

'TextBox1.SetFocus

End If
End With

'TextBox1.SetFocus


End Sub