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

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

Activecell.resize(x,1).Select

HTH
--
AP

"Kaak" a écrit dans le
message de news: ...

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

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

--
QuickLearne
-----------------------------------------------------------------------
QuickLearner's Profile: http://www.excelforum.com/member.php...fo&userid=3548
View this thread: http://www.excelforum.com/showthread.php?threadid=55592