YesNo problem

[Curt]

I missed something trying to have vbyes go to data sheet vbno to continue
with remainder of procedure. Got something out of order. Can someone
unscramble my error
Thanks
With Worksheets("Data")
LastRow = .Cells(Rows.Count, "A").End(xlUp).row
On Error GoTo NoBlanks
Set myR = .range("D5:M5").Resize(LastRow -
4).specialcells(xlCellTypeBlanks)
Blanks = msgbox("Data You Need Complete Any Data Entry", vbYesNo)
' If Blanks = vbNo Then------
If Blanks = vbYes Then-----
myR.Select
UserForm8_Printing_options.Hide
Sheets("Data").Select
End If
Exit Sub
If Blanks = vbNo Then-----
NoBlanks:

 

[Curt]

Solved this one got another