Hi LC,
Try this small macro.
It will name cells in Column B according to info in Column A.
It will stop when it finds a blank cell in Cloumn A

Sub NameB()
Dim A As Integer
A = 1
Do Until Cells(A, 1) = ""
ActiveWorkbook.Names.Add Name:=Cells(A, 1), RefersToR1C1:=Cells(A, 2)
A = A + 1
Loop
End Sub

Regards - Dave.