Find Extents of Data
 

I believe that there is a simple function available in VBA that searches for
the extens of the data once a cell is highlighted. For example by clicking
in the centre of a large range of data, this command effectively then
returns the extents allowing easy definition of a range.

Find Extents of Data
 

I think this is what you want

activecell.CurrentRegion.selec

--
duan
-----------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...fo&userid=1162
View this thread: http://www.excelforum.com/showthread.php?threadid=26595