Generating Named Ranges from 2 text columns (Name and Refers To:)

[d0rian]

I have a list of 200+ names that I want to turn into defined Named Ranges. They're in 2 simple text columns as shown in the image below. Is there code I can run that will generate these named ranges (the "!DBL" obv refers to a sheet named DBL that already exists in the file)?

EDIT: FWIW, I want them all scoped to the entire Workbook; just wanted to add that detail since I see it's the only other field / variable in Excel's "New Name" dialog box.

 

[KKaren]

This one works for me, but you might want to adjust it for your needs:

Sub CreatingNamedRanges()

    Dim dblWs As Worksheet
    Dim x As Long, LastRow As Long
    
    Set dblWs = ThisWorkbook.Worksheets("DBL")
    
    LastRow = dblWs.Range("A" & Rows.Count).End(xlUp).Row
    
    For x = 2 To LastRow
    
        Names.Add _
            Name:=dblWs.Range("A" & x).Value, _
            RefersTo:="=" & dblWs.Range("B" & x).Value
    
    Next x
    

End Sub

 

[Fluff]

Another option

Sub d0rian()
   Dim Cl As Range
   With Sheets("[COLOR=#ff0000]List[/COLOR]")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         Range(Cl.Offset(, 1)).Name = Cl
      Next Cl
   End With
End Sub

Change sheet name in red to match the sheet with the ranges & names