How to select the bottom right cel in a 'CurrentRegion.selecion'

[Luc]

Within a 'CurrentRegion.Select' i want to select the bottom right cell in
this selection.
What code should i use.

Thanxxx

Luc

 

[Tom Ogilvy]

Dim rng as Range
set rng = Range("B9").currentRegion
rng(rng.count).Select

or
Dim rng as Range
set rng = Range("B9").currentRegion
rng.Select
rng(rng.count).Activate

if you want it to the the active cell in multicell selection.

 

[Dave Peterson]

with activesheet.currentregion
.cells(.cells.count).select
end with

 

[Dave Peterson]

with activesheet.range("a1").currentregion
.cells(.cells.count).select
end with