Last Cell in Range

[2077delta]

Is there a simple way to get the value of the last cell in a range. I tried specialcells(xlcelltypelastcell) but ir returns the last cell in the used range which isn't necessarilly the same as the last cell in the selected range. Any help would be grealty appreciated.

 

[Abdc]

To get the last cell in a selected contiguous rectangular range :-

Set lastCell = Selection.Cells(Selection.Cells.Count)

 

[Jim North]

This is looking at column B:

LastRow = Worksheets("Sheet1").Range("B65536").End(xlUp).Row