Select A Range Dynamically Based On Count Of Values

[getlucky]

Hi,

I am trying to select a code using variables. Since the range is dynamic, I am using a counta function to determine the no of rows. Below is the code I have used, but its not correct.


Dim Nmbr As Integer
Nmbr = Range("R1").Value
Range("R1") = WorksheetFunction.CountA(Range("S:S"))
Range("R2").Select
Range("R2").Resize(Nmbr, 6).Select

Thanks for your help!

[Excel Fox]

Try this




Dim Nmbr As Integer
Range("R1") = WorksheetFunction.CountA(Range("S:S"))
Nmbr = Range("R1").Value
Range("R2").Resize(Nmbr, 6).Select