I currently have Sheet2 active in this example:

Sub TestIt()
Dim Line as Integer

Line = 8
x = 1

While Cells(x,1) < ""
Sheets("Sheet1").Range("A" & Line & ":K" & Line).Select
x = x + 1
Wend
End Sub

I get an error on the Select statement "Select Method of Range Class
Failed".

I am trying to select Range("ALine:KLine") where Line is the variable.

Any help would be great.

DG

You need to have "Sheet1" active to select the range. Try this...

Sub TestIt()
Dim Line As Integer
Dim x as Integer

Line = 8
x = 1

Worksheets("Sheet1").Activate

While Worksheets("Sheet2").Cells(x, 1) < ""
Worksheets("Sheet1").Range("A8:K8").Select
x = x + 1
Wend
End Sub


"DG" wrote:

I currently have Sheet2 active in this example:

Sub TestIt()
Dim Line as Integer

Line = 8
x = 1

While Cells(x,1) < ""
Sheets("Sheet1").Range("A" & Line & ":K" & Line).Select
x = x + 1
Wend
End Sub

I get an error on the Select statement "Select Method of Range Class
Failed".

I am trying to select Range("ALine:KLine") where Line is the variable.

Any help would be great.

DG