VBA Loop Through Named Ranges

[DixiePiper]

I have an inputs worksheet with certain required fields. My goal was to name these cells and have Excel loop through them to identify any blanks before allowing the user to continue. I found a snippet of code that will list the named ranges on the worksheet but I cannot figure out how to modify it to check if they are blank.

Here's how I'd like it to work:
1. The workbook opens to the Project Data tab that contains 50+ fields. Of those 50, let's say 25 are mandatory and those cells are named (e.g,. "Project.ID", "Project.Title", "Author", etc.).
2. Once the author has filed out the data, they click a button to continue to the next step.
3. This is where I need to look at the named ranges on the Project Data tab and verify that the 25 required fields have data. If it finds an empty range, a message box pops up saying, "Please complete required fields in order to continue." Bonus points if it can activate the blank cell to make it easier for the user to complete.
4. If all the named ranges contain data, the user is allowed to continue to the next step.

For reference, I'm using Excel 365 on Windows 10.

Thank you in advance for any help.

 

[Jeffrey Mahoney]

Will this work? I created a list of named ranges on a sheet called setup and named that range NRList

Sub CheckForBlanks()
  Dim Cel As Range
  Dim NRList As Range
  Dim PDSht As Worksheet
  Dim NR As Range
  
  Set NRList = Sheets("Setup").Range("NRList")
  Set PDSht = Sheets("Project Data")
  
  
  For Each Cel In NRList
    On Error Resume Next
    Set NR = PDSht.Range(Cel.Value)
    If Not NR Is Nothing Then
      If NR.Value = "" Then
        PDSht.Activate
        NR.Select
        MsgBox "This is a required field: " & Cel.Value
        Exit Sub
      End If
    End If
  Next Cel
  
End Sub