Select case on range name

Hi

I think I am being a bit daft probably because I've been staring at vba for too long today...
But I cant get my select case to work. basicially it just validates the data. When I run it nothing errors, but nothing happens either?

Sub VALIDATEINPUT()
Dim RngCell As Range

For Each RngCell In Range("ingrp,RES,RESO,REQ,REQO,REQD").Cells
    Select Case RngCell.Cells.Name
            
        Case 1
            RngCell.Name = "EMP"
                If Range("EMP") = "" Then
                    MsgBox ("You must enter an employee number at the top")
                End If
                
        Case 2
            RngCell.Name = "RES"
                If Range("RES") = "" Then
                    MsgBox ("You must select a reason for the change request")
                Else
                        If Range("RES") = "Other - Please specify" Then
                            If Range("RESO") = "" Then
                                MsgBox ("You must enter a reason in the 'other reason' box")
                            End If
                        End If
                End If
                
        Case 3
            RngCell.Name = "REQ"
                If Range("REQ") = "" Then
                    MsgBox ("You must select the request for the change")
                Else
                        If Range("REQ") = "Other - Please specify" Then
                            If Range("REQO") = "" Then
                                MsgBox ("You must enter the request in the 'other request' box")
                            End If
                        End If
                End If
                
        Case 4
            RngCell.Name = "REQD"
                If Range("REQD") = "" Then
                    MsgBox ("You must detail the nature of the change request in the 'details of request' box")
                End If
                
        Case 5
            RngCell.Name = "PSC"
                If Range("PSC") <> "" Then
                    If Range("PPT") = "" Then
                        MsgBox ("You must select a scale point")
                    End If
                End If
                
        Case 6
            RngCell.Name = "PPT"
                If Range("PPT") <> "" Then
                    If Range("PSC") = "" Then
                        MsgBox ("You must select a scale first")
                    End If
                End If
                
        Case 7
            RngCell.Name = "CDESC"
                If Range("CDESC") <> "" Then
                    If Range("PDESC") = "" Then
                        MsgBox ("You must upload the job description")
                    End If
                End If
                
        Case 8
            RngCell.Name = "PDESC"
                If Range("PDESC") <> "" Then
                    If Range("CDESC") = "" Then
                        Range("CDESC") = "YES"
                    End If
                End If
    End Select
Next RngCell

End Sub

Try amending along these lines

For Each RngCell In Range("ingrp,RES,RESO,REQ,REQO,REQD").Cells
    Select Case RngCell.Name
            
        Case "EMP"
                If Range("EMP") = "" Then
                    MsgBox ("You must enter an employee number at the top")
                End If
                
        Case "RES"
                If Range("RES") = "" Then
                    MsgBox ("You must select a reason for the change request")
                Else
                        If Range("RES") = "Other - Please specify" Then
                            If Range("RESO") = "" Then
                                MsgBox ("You must enter a reason in the 'other reason' box")
                            End If
                        End If
                End If
'etc

An example workbook would help. Are they all Named Ranges referring to single cells, if so you need to loop through the Names not the cells

Maybe

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
            End If
        End If
'etc

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

Use Application.WorksheetFunction to check the number of empty cells.