you can try these statements and see if they work for you

selection.range("A1").address

selection.specialcells(xlcelltypelastcell).address
--


Gary


"John Smith" wrote in message
...
I'm writing a script to be run on manually selected regions in
different worksheets in the same workbook. (I'll select one region
at a time and then run the script.)

How do I programmatically find the first and last cells
(upper-left and bottom-right corners) of a manually selected
region? Thanks.