Is there any reason you cannot just select the last cell in th
selection, grab the address, then re-select the original selection?
for example:

RA = Selection.Address ' curren
selection

Selection.End(xlDown).Select 'select last cell
ActiveCell.Offset(-1, 0).Range("A1").Select

topaddressrow1 = ActiveCell.Row 'grab addresses o
last cell
topaddresscolumn1 = ActiveCell.Column

Range(RA).Select 'reselec
original selection

' may be a work around - but hope it helps.
FuzzyDov

--
FuzzyDov
-----------------------------------------------------------------------
FuzzyDove's Profile: http://www.excelforum.com/member.php...fo&userid=1667
View this thread: http://www.excelforum.com/showthread.php?threadid=32005