Creating Names for Cells Using Code (RESOLVED)

I am trying to create a loop that will pass through every cell in a column and define it a name based on the cell's value.

VB Code:

For X = start To finish
            Sheets(2).Cells(X, 6).Name = Sheets(2).Cells(X, 6).Value
    Next X

I doesn't seem to like this. Any help? Thanks.

ThisApplication.Names.Add("NewName", "=Sheet1!$A$6")

Code:

---

c = "a"
r = "9"
sh = "sheet1"

s = "=" & sh & "!$" & c & "$" & r

'
Application.Names.Add "anna", s

---

specifically