Use SetFocus, something like this


Code:
--------------------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me
If Not IsNumeric(.TextBox1.Value) Then
.TextBox1.Value = vbNullString
MsgBox "Only numeric entries allowed", vbCritical, "Input error"
.TextBox1.SetFocus
End If
End With
End Sub
--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site' (http://www.excel-it.com/)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=41848