You can reset Excel's cell counting so that the SpecialCells method
gives you the correct last cell.
I use:
x = ActiveSheet.UsedRange.Rows.Count
y = ActiveSheet.UsedRange.Columns.Count
ActiveSheet.Cells.SpecialCells(xlLastCell).Select
Steve

"Tom Ogilvy" wrote in message ...
set rng = rng.SpecialCells(xlLast)

although this can overstate what you might think is the last empty row