Counting rows until a blank is reached

[Blewyn]

How do I count the number of rows of data in my spreadsheet, based o
data in a specific column (some fields are blank in the body of th
data) ?

So far I have :

Range("M3").Select
Do
ActiveCell.Offset(1, 0).Activate
Loop Until (IsNull(ActiveCell.Value) = True)

which succeeds in scrolling down but doesn't stop at the last row o
data, just keeps going.

Any ideas ?

Cheers,

Blewy

 

[Ron de Bruin]

Hi Blewyn

Try this one

MsgBox Application.WorksheetFunction.CountA(Range("M3:M" & Rows.Count))

 

[blewyn]

Ron,

Thanks a lot - I just love those moments when you slap your head and
say "bloody hell I can do THAT ? How did I miss that for so long ?"

Never knew you could just call worksheet functions in code......doh!

Cheers,

Blewyn