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

"filip" skrev i meddelelsen
...
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?