I would think that:

Add_Name.TextBox1.SetFocus

would work.



"Patrick C. Simonds" wrote:

What can I do to take the user back to the UserForm (preferably to TextBox1)
if TextBox1 value is blank?




Private Sub CommandButton1_Click()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

Application.ScreenUpdating = False

If TextBox1.Value = "" Then
MsgBox "Sorry but you must provide a First Name"

End

End If

Application.ScreenUpdating = False

Range("A1003").Activate
rng(1, 1).Value = TextBox1.Text 'Employee First Name


Unload Add_Name

Sort.SortEmplyees

Application.ScreenUpdating = True

End Sub