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

 

[QuickLearner]

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