Just count entries in the whole column:

msgbox Application.CountA(Columns(5))

--
Regards,
Tom Ogilvy

"cindy" wrote in message
...
I have a column of items I want to count. The length of the column
changes
by spreadsheet. I would like the macro to start in the first blank cell
and
move up one cell and count all items to row 1. How do I code this when the
originating cell address will change? thanks! cm