Creates named ranges to each cell using the content of the cell as the name

gistfile1.vb

Sub NameCellRangesAfterCellContent()
    Dim columnNumber As Integer
    columnNumber = 2
    For i = 1 To 100
        If Sheets("Sheet Name").Range("A" & i).Value <> "" Then
            ActiveWorkbook.Names.Add Name:=Sheets("Sheet Name").Range("A" & i).Value, RefersToR1C1:="='Sheet Name'!R" & i & "C" & columnNumber
        End If
    Next i
End Sub