Noted with thanks, Tom !

--
Rgds
Max
xl 97
----------------------------------
Use xdemechanik <atyahoo<dotcom for email
-----------------------------------------
"Tom Ogilvy" wrote in message
...
this can be quite unreliable.

--
Regards,
Tom Ogilvy


Max wrote in message
...
Maybe one row after?, for the "next blank row":

ActiveCell.SpecialCells(xlLastCell).offset(1,0).Se lect