Select case on range name

Slight variation on above

Option Explicit
Sub VALIDATEINPUT()
    Dim Nm As Name

    For Each Nm In Names
        Select Case Nm.Name

        Case "EMP": If Range("EMP") = "" Then MsgBox ("You must enter an employee number at the top")
        Case "RES"
            If Range("RES") = "" Then
                MsgBox ("You must select a reason for the change request")
            ElseIf Range("RES") = "Other - Please specify" Then
                If Range("RESO") = "" Then MsgBox ("You must enter a reason in the 'other reason' box")
                End If
                'etc
     End Select
     Next Nm

Ok so I have found 2 problems and more or less solved 1 with the select case.

The problems are that it will go through every case and display every validation prompt that has a matching case.

The other problem is that I want it to only run the last validation step when all the others pass (ie don't match a case)

I had a play at just using a more simple approach of nested ifs, this is working how I want it other than it doesn't go all the way through validation if you pass the validation for RES then it stops and wont go on to validation REQ etc

This is my code

Option Explicit
Sub VALIDATEINPUT()
    Dim RngCell As Range

            If Range("EMP") = "" Then
                MsgBox ("You must enter an employee number at the top")
            ElseIf Range("REQ") = "" Then
                MsgBox ("You must select the request for the change")
            ElseIf Range("REQ") = "Other - please specify" Then
                If Range("REQO") = "" Then
                    MsgBox ("You must enter the request in the 'other request' box")
            ElseIf Range("RES") = "" Then
                MsgBox ("You must select a reason for the change request")
            ElseIf Range("RES") = "Other - please specify" Then
                If Range("RESO") = "" Then
                    MsgBox ("You must enter a reason in the 'other reason' box")
            ElseIf Range("REQD") = "" Then
                MsgBox ("You must detail the nature of the change request in the 'details of request' box")
            ElseIf Range("PSC") <> "" Then
                If Range("PPT") = "" Then
                    MsgBox ("You must select a scale point")
            ElseIf Range("PPT") <> "" Then
                If Range("PSC") = "" Then
                    MsgBox ("You must select a scale first")
                    Range("PPT") = ""
            ElseIf Range("CDESC") <> "" Then
                If Range("PDESC") = "" Then
                    MsgBox ("You must upload the job description")
            ElseIf Range("PDESC") <> "" Then
                If Range("CDESC") = "" Then
                    Range("CDESC") = "YES"
            ElseIf Range("MANG") = "" Then
                MsgBox ("Please enter your employee number in the orange box")
                Sheets(2).CommandButton4.Visible = True
            ElseIf Sheets(2).CheckBox1.Value = 0 Then
                MsgBox ("Please tick the checkbox to confirm you wish to make this request")
            
            Else
                    ActiveSheet.Unprotect Password:="TMC"
                    Call Module4.AutoComp
                    Sheets(2).CommandButton4.Visible = False
                    For Each RngCell In Range("ingrp").Cells
                    RngCell.Locked = True
                    Next RngCell
                    ActiveSheet.Protect Password:="TMC"
            
            End If
            End If
            End If
            End If
            End If
            End If
            End If
            
            
End Sub