check macro

Sub Check()

If Range("F4") = "" Then
MsgBox "Please enter Employee number."
Range("F4").Select
ElseIf Range("F6") = "" Then
MsgBox "Please enter Employee name."
Range("F6").Select
ElseIf Range("F8") = "" Then
MsgBox "Please select one."
Range("F8").Select
ElseIf Range("F10") = "" Then
MsgBox "Please select one."
Range("F10").Select
ElseIf Range("F12") = "" Then
MsgBox "Please select one."
Range("F12").Select
ElseIf Range("F14") = "" Then
MsgBox "Please enter MGP #."
Range("F14").Select
ElseIf Range("F16") = "" Then
MsgBox "Please select one."
Range("F16").Select
ElseIf Range("F18") = "" Then
MsgBox "Please enter NA if not available."
Range("F18").Select
ElseIf Range("Q4") = "" Then
MsgBox "Please enter serial number."
Range("Q4").Select
ElseIf Range("Q6") = "" Then
MsgBox "Please select one."
Range("Q6").Select
ElseIf Range("Q8") = "" Then
MsgBox "Please select one."
Range("Q8").Select
ElseIf Range("Q10") = "" Then
MsgBox "Please enter serial number."
Range("Q10").Select
ElseIf Range("Q12") = "" Then
MsgBox "Please enter NA if not available."
Range("Q12").Select
ElseIf Range("Q14") = "" Then
MsgBox "Please enter NA if not available."
Range("Q14").Select
ElseIf Range("Q16") = "" Then
MsgBox "Please select one."
Range("Q16").Select
ElseIf Range("Q18") = "" Then
MsgBox "Please select one."
Range("Q18").Select

Else

Call Submit

End If
End Sub