Selecting Ranges using Variables

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

DG - 20 Mar 2008 13:51 GMT

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

Reply to this Message

BigJimmer - 20 Mar 2008 14:07 GMT

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

> I currently have Sheet2 active in this example:
>
[quoted text clipped - 18 lines]
>
> DG

Reply to this Message