OptionBox error checking

I am at a loss here. My first 5 lines of code work fine but I need code
which checks to see that If TextBox1 is not blank, and neither OptionButton4
or OptionButton5 are selected (both False) then the message box will come
telling you that you must select one or the other


If OptionButton4.Value = True Then
rng(1, 6).Value = "Yes"
ElseIf OptionButton5.Value = True Then
rng(1, 6).Value = "No"
End If

If TextBox1.Text <> "" And OptionButton4.Value = False And
OptionButto5.Value = False Then
MsgBox "Input Incomplete - You must select either " & _
"Yes or No for Route 1"
GoTo EndMacro
End If

Good morning Patrick Simmonds

You'll kick yourself - really, you will :

change <> for =.

thus:

If TextBox1.Text = "" And OptionButton4.Value = False And OptionButton5.Value = False Then

HTH

DominicB