Finding the End of a Range

here is another alternative
Sub check()
Dim here As Range
Dim lastcell As Range
Set here = Selection.CurrentRegion
Set lastcell = Cells(here.Row + here.Rows.Count - 1, here.Column +
here.Columns.Count - 1)

lastcell.Select

End Sub

"BigH" wrote:

> Hi there,
>
> Is it possible using code to find the bottom of a range in say column A
>
> tia BigH
>
>
>