Trying to name ranges over a number of columns

[Obfuscated]

I am trying to assign named ranges from column A to column Y. Each column has a header, and each column varies in # of rows of info. I am trying to dynamically name each column for future reference. My code is:

Dim rngselect As Range
Dim ds As String
Set rngselect = ws.Range("Sections") ' (A1:Y1)= column headers
For Each cell In rngselect
With ws
  Set lastcell = .Cells(.Rows.Count, rngselect.Column).End(xlUp)
  rn = lastcell.Row
End With
ds = Chr$(rngselect.Column + 64) & "2:" & Chr$(rngselect.Column + 64) & rn

ws.Names.Add Name:=cell, RefersTo:=ds, Visible:=True
Next cell

The returns for the first column (A) are:
' cell for "A1" = "HP12"
' ds = "A2:A6"

I keep getting the error msg that says my name is not valid. Can someone tell me my mistake in the code above please?