Select a range...

[derobin]

Hi,

I just want to select a one-column-range starting at the selected cell
and stretching out until a row specified in variable x.
There has to be a better way than this:

Range(ActiveCell.Address & ":" & Left(Replace(ActiveCell.Address, "$",
""), 1) & x).Select

What am I missing?

Thx
Robin

[Kaak]

Sub Test()

Dim x As Integer

x = 8

Range(ActiveCell.Address).Resize(x, 1).Select

End Sub

[Ardus Petus]

Activecell.resize(x,1).Select

HTH
--
AP

"Kaak" <[email protected]> a écrit dans le
message de news: [email protected]...
>
> Sub Test()
>
> Dim x As Integer
>
> x = 8
>
> Range(ActiveCell.Address).Resize(x, 1).Select
>
> End Sub
>
>
> --
> Kaak
> ------------------------------------------------------------------------
> Kaak's Profile:
> http://www.excelforum.com/member.php...fo&userid=7513
> View this thread: http://www.excelforum.com/showthread...hreadid=555928
>

[QuickLearner]

Is it possible to have a column of multiple values and by clicking in the cell, it filters on that value?