Dim rng as Range
With Worksheets("Sheet1")
set rng = .Cells.SpecialCells(xlCellTypeLastCell)
End With

Shouldn't select anything

--
Regards,
Tom Ogilvy

"Kevin McCartney" wrote in
message ...
How do I get the last edit cell of a sheet without using
application.Cells.SpecialCells(xlCellTypeLastCell) because this causes the
application to select the last cell and hence restarts the
SheetSelectionChange event or alternatively how do find the last cell of a
pivot table?

TIA
KM