In my Excel VBA, I have well over 100 lines of code similar to the following.

Is there a way to loop through all existing named ranges, and set a variable with a name equal to the name of the named range, and with the value of the named range?

Public Development, include_nfm, include_dod, email_cc

    With Worksheets("CS_INPUTS")
        Development = .Range("Development").Value
        include_nfm = .Range("include_nfm").Value
        include_dod = .Range("include_dod").Value
        email = .Range("email").Value
    End With