Sub NamedRanges()
Dim rngCell As Range
Dim intLstRow As Integer
intLstRow = ActiveSheet.UsedRange.Rows.Count
counter = 2 'If the data starts in A1, changes this to 1
For Each rngCell In Range("A2:A" & intLstRow) ' If the data Starts in A1, changes this to A1
ActiveWorkbook.Names.Add Name:=rngCell.Value, RefersTo:=Range("Master!" & rngCell.Address & ":$M$" & counter)
counter = counter + 1
Next
End Sub