How to "update" SpecialCells(xlLastCell)
Found it:
ActiveSheet.UsedRange
Thanks
"Tom Ogilvy" wrote:
Range("A11", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
ActiveCell.UsedRange
ActiveCell.SpecialCells(xlLastCell).Activate
iRow = ActiveCell.Row
iCol = ActiveCell.Column
--
Regards,
Tom Ogilvy
"Charlie" wrote in message
...
If I delete rows from, say, "A11" to SpecialCells(xlLastCell), the last
cell
reference isn't automatically updated to reflect the new "last cell".
What
is the syntax or method I need to use so that SpecialCells(xlLastCell) now
points to, say, "H5"? (Or is there a different method of deleting the
selected cells such that it updates automatically?)
Range("A11", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete
ActiveCell.SpecialCells(xlLastCell).Activate
iRow = ActiveCell.Row
iCol = ActiveCell.Column
(I would like iRow and iCol to now point to new Max Row and Max Col)
Thanks
|