VBA count number of cells

[filip]

I am counting number of cells i have to iterate with next piece of code:
Dim rows

Do While Not (IsEmpty(ActiveCell))
rows = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
Loop

is it possible to do the same without selecting?

 

[Mike H]

Hi,

It's always a good idea to post code/formula you have tried but the snippet
of code you supplied will go into a very long and probably endless loop if
run so avoid doing that.

Perhaps you could explain more clearly what you are trying to do.

Mike

 

[Per Jessen]

Hi
Do not use Rows as a variable, it's already used in VBA.
Is ActiveCell always in row 1, otherwise you may wish to subtract
ActiveCell.Row from the result below.
Look at this:

Dim Target as Range
Dim RowCount as Integer

Set Target = ActiveCell
Do While Not (IsEmpty(Target))
RowCount = Target.Row
Set Target = Target.Offset(1, 0)
Loop
'or
RowCount = ActiveCell.End(xlDown).Row

Regards,
Per