Using variables in range columns

[construct]

This should be pretty simple, I'm just struggling with it:

So I'm trying to make a loop that takes all of the values in column "x" and creates a named array with the value in x1. I'm running into trouble with using the variable x as a means of defining the column in the range. Advice?

Sub coding()

Dim x As Integer, hed As String
With Worksheets("Sheet1")
x = 1


Do Until .Cells(x, 1).Value = ""
hed = .Cells(x, 1).Value
ThisWorkbook.Names.Add Name:=hed, RefersTo:=Worksheets("Sheet1").Range(x & "1" & x & 100)
x = x + 1
Loop

End With

End Sub

[construct]

Got it, if anyone runs into a similar problem the solution is:

 
Range(Cells(x, 1), Cells(x, 100))

[TMS]

Instead of Range use Cells:

.Range(x & "1" & x & 100)

becomes:

.Range(Cells(x, 1), Cells(x, 100))

that assumes that x is referring to a row. If it's a column:

.Range(Cells(1, x), Cells(100, x))

Regards, TMS