Simple BV Question

[spg2112]

Hello again,

OK, what's wrong with this code? I just want to select a range that = E3 to the value thats in A1.

Sub GetAU()
Dim a As Variant
a = Sheets("Data").Range("A1").Value

Sheets("Data").Range("E3").Select
Range(Selection, Selection.Offset(0, a)).Select


End Sub

[Mark O'Brien]

Not sure what you're saying here. Could you try to rephrase your question. What you're trying to do sounds simple enough though.

[spg2112]

The value in A1 is just a record count. I want to select the range from E3 to the bottom of the data. If A1 = 500, I want to select E3:E500, plus one or 2 rows for headers and such.

Steve

[NateO]

You could try the following:

Sub GetAU2()
Dim a As Integer
a = Sheets("data").[A1].Value
Sheets("data").Range("E3:E" & a).Select
End Sub

You change e3 to e1 for headers, etc...and a to a+2 for footers, etc...Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-26 09:24 ]

[spg2112]

Thanks Nato, that will work!

[Mark O'Brien]

Good repost.

Follow Nate's solution. (Although I'm a picky bstart, so I'd change that "Dim a as Integer" to "Dim a as Long" since there are more than 32,767 rows in Excel)

[NateO]

You're welcome SPG. Good point Mark! And one wouldn't have to be so picky if Xl herself wasn't so