Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox3.Text = "" Then TextBox3.SetFocus: Cancel = 1
If TextBox2.Text = "" Then TextBox2.SetFocus: Cancel = 1
If TextBox1.Text = "" Then TextBox1.SetFocus: Cancel = 1
End Sub


wrote in message ...
I have creted a userform using Visual basic that writes
into an excel spreadsheet. Within this form I have
several textboxes.

Is it possible for me to write some code which will
ensure that the boxes cannot be left blank when the form
is submitted and error message is presented telling the
user to add data to the relevant textboxes

Many thanks

Nick Read