VB not exiting sub

[gmazza76]

Good Morning,

I have a questionaire that has 25 questions that need to be answered before submit can be pressed to save the answers. I have managed to write the following to tell the person they have missed a question out, but it still allows the questionaire to be submitted.

   If Cells(17, 11) = "" Then
            Application.ScreenUpdating = False
            MsgBox "Please complete Question 1", vbOKOnly, "Missing Q1"
    Else
            MyQ1 = Cells(17, 11)
    End If

Is there anything i can add to stop the questionaire from being submitted.

Many Thanks

 

[JamesW]

Hi Gavin,

Maybe something like:

    If Cells(17, 11) = "" Then
        MsgBox "Please complete Question 1", vbOKOnly, "Missing Q1"
        TextBox1.SetFocus
        Goto endSub
    Else
        MyQ1 = Cells(17, 11)
    End If
.....
endSub:
        Application.ScreenUpdating = True
End Sub