I suppose that you want to Name your list as one of the strings in the
list itself? Correct?

==============================================================
Dim LocCode As String

LocCode = Cells(2, 1).Value 'This will choose the string.
ThisWorkbook.Names.Add Name:=LocCode, RefersTo:="=$A$1:$A$4",
Visible:=True 'this part will name the list as the string  chosen.
================================================================